login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A087868 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, 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; refs; listen; history; text; internal format)
OFFSET

1,4

LINKS

Table of n, a(n) for n=1..62.

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: A298503 A038336 A236506 * A233513 A175042 A255134

Adjacent sequences:  A087865 A087866 A087867 * A087869 A087870 A087871

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Oct 10 2003

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 31 05:06 EDT 2020. Contains 338098 sequences. (Running on oeis4.)