|
| |
|
|
A068003
|
|
a(1) = 5, a(n+1) is the concatenation of a(n) and the next prime after a(n).
|
|
2
| | |
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; f[n_] := ToExpression[ ToString[n] <> ToString[ NextPrim[n]]]; NestList[f, 5, 7]
|
|
|
CROSSREFS
| Cf. A067823, A068002, A068004.
Sequence in context: A009480 A009481 A086060 * A173202 A104099 A129897
Adjacent sequences: A068000 A068001 A068002 * A068004 A068005 A068006
|
|
|
KEYWORD
| easy,nonn,base
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 10 2002
|
| |
|
|
