OFFSET
1,1
COMMENTS
MATHEMATICA
Conway[n_Integer?Positive] := Conway[n] =Conway[Conway[n-1]] + Conway[n - Conway[n-1]] Conway[1] = Conway[2]= 1 digits=200 a=Table[1+Abs[Prime[Conway[n]]-Conway[Prime[n]]], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Oct 01 2003
STATUS
approved