A068004 a(1) = 7, a(n+1) is the concatenation of a(n) and the next prime after a(n).

7, 711, 711719, 711719711727, 711719711727711719711761, 711719711727711719711761711719711727711719711897

Offset

1,1

Links

Table of n, a(n) for n=1..6.

Mathematica

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := ToExpression[ ToString[n] <> ToString[ NextPrim[n]]]; NestList[f, 7, 7]

Crossrefs

Cf. A067823, A068002, A068003.

Sequence in context: A229149 A159815 A070746 * A098110 A062334 A222727

Adjacent sequences: A068001 A068002 A068003 * A068005 A068006 A068007

Keyword

easy,nonn,base

Author

Robert G. Wilson v, Feb 10 2002

Status

approved