1,2

digits=10 P[n_Integer?Positive] := P[n] =Prime[P[n-1]]+Abs[Prime[n]-P[n-1]] P[1] = 1 a1=Table[Floor[P[n]], {n, 1, digits}]

Cf. A004001.

Sequence in context: A115099 A060919 A009333 this_sequence A000585 A102559 A037020

Adjacent sequences: A086909 A086910 A086911 this_sequence A086913 A086914 A086915

nonn

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 24 2003