|
Search: id:A068004
|
|
|
| A068004 |
|
Start with 7 and concatenate ("absorb") the next prime; continually repeat this procedure. |
|
+0
3
|
|
| 7, 711, 711719, 711719711727, 711719711727711719711761, 711719711727711719711761711719711727711719711897, 71171971172771171971176171171971172771171971189771171971172771171971176171171971\ 1727711719711997
(list; graph; listen)
|
|
|
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, 7, 7]
|
|
CROSSREFS
|
Cf. A067823, A068002, A068003.
Sequence in context: A129291 A159815 A070746 this_sequence A098110 A062334 A083978
Adjacent sequences: A068001 A068002 A068003 this_sequence A068005 A068006 A068007
|
|
KEYWORD
|
easy,nonn,base
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 10 2002
|
|
|
Search completed in 0.002 seconds
|
