1,3

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

Cf. A005229.

Sequence in context: A112158 A093479 A165720 this_sequence A022542 A108341 A028331

Adjacent sequences: A086910 A086911 A086912 this_sequence A086914 A086915 A086916

nonn

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