

A067823


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


3




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: A239811 A082963 A083759 * 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



