id:A087868 - OEIS Search Results

Search: id:A087868

Displaying 1-1 of 1 results found.

page 1

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

+0
1

1, 1, 1, 12, 11, 3, 9, 27, 26, 1, 17, 57, 65, 20, 25, 69, 77, 19, 18, 109, 141, 93, 29, 96, 29, 141, 45, 163, 70, 133, 17, 145, 65, 196, 3, 273, 217, 291, 116, 119, 197, 33, 161, 122, 275, 25, 289, 215, 228, 129, 71, 265, 293, 114, 1, 439, 569, 579, 480, 627, 551, 493 (list; graph; listen)

	OFFSET	`1,4`
	MATHEMATICA	`P[n_Integer?Positive] := P[n] =Abs[ Abs[Prime[n]-P[n-1]]+Abs[Prime[n]-P[n-2]]+Abs[Prime[n]-P[n-3]]- Abs[Prime[n]-P[n-4]]] P[0]=P[1]=P[2]=P[3]=1 digits=200 a1=Table[Floor[P[n]], {n, 1, digits}]`
	CROSSREFS	`Sequence in context: A140267 A094450 A038336 this_sequence A109065 A022968 A023454` `Adjacent sequences: A087865 A087866 A087867 this_sequence A087869 A087870 A087871`
	KEYWORD	`nonn`
	AUTHOR	`Roger L Bagula (rlbagulatftn(AT)yahoo.com), Oct 10 2003`

page 1

Search completed in 0.002 seconds

Last modified August 19 23:53 EDT 2008. Contains 142930 sequences.

AT&T Labs Research