id:A086911 - OEIS Search Results

Search: id:A086911

Displaying 1-1 of 1 results found.

page 1

a[n] = Abs[Prime[n]-a[n-1]]+Abs[Prime[n]-a[n-2]]

+0
1

1, 1, 8, 7, 7, 12, 15, 11, 20, 27, 15, 32, 35, 19, 40, 47, 31, 44, 59, 39, 48, 71, 47, 60, 87, 55, 64, 95, 59, 72, 123, 67, 84, 127, 87, 88, 139, 99, 96, 151, 111, 100, 171, 115, 108, 175, 139, 132, 183, 143, 140, 195, 147, 160, 207, 159, 172, 211, 171, 180, 215, 191 (list; graph; listen)

	OFFSET	`1,3`
	COMMENT	`A batrachian sequence of the Hofstadter type based on the primes. This sequence shows a trifucating structure when graphed.`
	MATHEMATICA	`digits=200 P[n_Integer?Positive] := P[n] =Abs[Prime[n]-P[n-1]]+Abs[Prime[n]-P[n-2]] P[1] =P[2]=1 a1=Table[Floor[P[n]], {n, 1, digits}]`
	CROSSREFS	`Cf. A005185.` `Sequence in context: A115373 A021118 A010529 this_sequence A103984 A037077 A094106` `Adjacent sequences: A086908 A086909 A086910 this_sequence A086912 A086913 A086914`
	KEYWORD	`nonn`
	AUTHOR	`Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 24 2003`

page 1

Search completed in 0.002 seconds

Last modified November 23 17:09 EST 2009. Contains 167438 sequences.

AT&T Labs Research