A067823 Start with 2 and concatenate ("absorb") the next prime; continually repeat this procedure.

2, 23, 2329, 23292333, 2329233323292337, 23292333232923372329233323292391, 2329233323292337232923332329239123292333232923372329233323292583

Offset

1,1

Links

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

Example

The next prime after 2 is 3, so 23 follows 2 in the sequence. The next prime after 23 is 29, so 2329 comes after 23 in the sequence.

Mathematica

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

Crossrefs

Sequence in context: A082963 A083759 A240563 * A114794 A090509 A069151

Adjacent sequences: A067820 A067821 A067822 * A067824 A067825 A067826

Keyword

easy,nonn,base

Author

Joseph L. Pe, Feb 07 2002

Extensions

Edited and extended by Robert G. Wilson v, Feb 10 2002

Status

approved