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

3, 35, 3537, 35373539, 3537353935373551, 35373539353735513537353935373569, 3537353935373551353735393537356935373539353735513537353935373613

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, 3, 7]
NestList[FromDigits[Join[IntegerDigits[#], IntegerDigits[NextPrime[ #]]]]&, 3, 6] (* Harvey P. Dale, Apr 05 2015 *)

Crossrefs

Cf. A067823, A068003, A068004.

Sequence in context: A184458 A132940 A132941 * A132557 A069954 A134098

Adjacent sequences: A067999 A068000 A068001 * A068003 A068004 A068005

Keyword

easy,nonn,base

Author

Robert G. Wilson v, Feb 10 2002

Status

approved