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

5, 57, 5759, 57595779, 5759577957595817, 57595779575958175759577957595829, 5759577957595817575957795759582957595779575958175759577957595857

Offset

1,1

Links

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

Mathematica

NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := ToExpression[ ToString[n] <> ToString[ NextPrim[n]]]; NestList[f, 5, 7]
NestList[# 10^IntegerLength[NextPrime[#]]+NextPrime[#]&, 5, 10] (* Harvey P. Dale, Jul 02 2020 *)

Crossrefs

Cf. A067823, A068002, A068004.

Sequence in context: A209522 A213796 A086060 * A295902 A290343 A173202

Adjacent sequences: A068000 A068001 A068002 * A068004 A068005 A068006

Keyword

easy,nonn,base

Author

Robert G. Wilson v, Feb 10 2002

Status

approved