login
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
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: A298503 A038336 A236506 * A233513 A175042 A255134
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 10 2003
STATUS
approved