OFFSET
1,3
MATHEMATICA
RecurrenceTable[{a[1]==a[2]==1, a[n]==Abs[Prime[n]-a[n-1]]+Abs[Prime[n]- a[n-2]]}, a, {n, 70}] (* Harvey P. Dale, Oct 05 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Sep 24 2003
STATUS
approved