|
|
A030456
|
|
a(0) = 2; a(n) is smallest prime containing a(n-1) as substring.
|
|
5
|
|
|
2, 23, 223, 1223, 12239, 122393, 1223939, 12239393, 122393939, 1223939399, 12239393993, 122393939933, 12239393993311, 412239393993311, 8412239393993311, 78412239393993311, 2378412239393993311, 23784122393939933111, 2623784122393939933111, 26237841223939399331111
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
MATHEMATICA
|
FromDigits /@ Nest[Append[#, Block[{p = NextPrime@ FromDigits@ #[[-1]], d}, While[Length@ SequencePosition[Set[d, IntegerDigits@ p], #[[-1]]] == 0, p = NextPrime@ p]; d]] &, {{2}}, 7] (* Michael De Vlieger, Feb 26 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|