|
|
A049462
|
|
a(n) is the smallest n-digit prime p such that the concatenation a(1)a(2)...a(n-1)p is prime, with a(1) = 2.
|
|
1
|
|
|
2, 11, 151, 1013, 10867, 100673, 1000357, 10000931, 100000213, 1000000901, 10000001797, 100000000283, 1000000001911, 10000000012553, 100000000006087, 1000000000011317, 10000000000003471, 100000000000017431
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
The corresponding primes are certified for 44 < n < 60 (for the first 15 titanic primes). - Metin Sariyar, Oct 23 2020
|
|
LINKS
|
|
|
EXAMPLE
|
Starting with an initial prime of 2, next the smallest 2-digit prime which gives a prime is 11 (211, a prime), then 151 (3-digit prime) is the smallest to make 211151 a prime, etc.
|
|
MATHEMATICA
|
NextPrim[n_] := Block[{k = n + 1}, While[ ! PrimeQ[k], k++ ]; k]; a[1] = 2; a[n_] := a[n] = Block[{p = Sum[ a[i]*10^(n(n + 1)/2 - i(i + 1)/2), {i, 1, n - 1}], q = NextPrim[10^(n - 1)]}, While[ !PrimeQ[p + q], q = NextPrim[q]]; q]; Table[ a[n], {n, 1, 19}] (* Robert G. Wilson v, Oct 18 2003 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|