editing
approved
editing
approved
Let q = p | p' be the digit concatenation of a prime p with its prime successor. If the result is a prime repeat the construction setting p = q. a(kn) is the smallest prime for which this can be repeated exactly k n times.
proposed
editing
editing
proposed
Let q = p | p' be the digit concatenation of a prime p with its prime successor. If the result is a prime repeat the construction setting p = q. a(k) is the smallest prime number for which the operation of concatenating a number with the next prime this can be repeated exactly k times, obtaining each time a prime number.
proposed
editing
editing
proposed
Carlos Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_029.htm">Puzzle 29. P_i = P_(i-1) & nxtprm(P_(i-1)), P_i = prime for i => 1</a>, The Prime Puzzles and Problems Connection.
proposed
editing
editing
proposed
a(6) > 10^13.
allocated a(k) is the smallest prime number for Giovanni Restawhich the operation of concatenating a number with the next prime can be repeated exactly k times, obtaining each time a prime number.
3, 2, 13681, 467, 127787377, 200603842261
0,1
Carlos Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_029.htm">Puzzle 29. P_i = P_(i-1) & nxtprm(P_(i-1)), P_i = prime for i => 1</a>
Let "|" denote concatenation.
3 | 5 = 35, which is not prime, so a(0) = 3.
2 | 3 = 23 (prime), 23 | 29 = 2329 (composite), so a(1) = 2.
13681 | 13687 (prime), 1368113687 | 1368113699 (prime), 13681136871368113699 | 13681136871368113711 (composite), so a(2) = 13681.
a[n_] := Block[{pp=1, p, q, c=-1}, While[ c!=n, c=0; p = pp = NextPrime@ pp; While[ PrimeQ[ q = FromDigits[ Join @@ IntegerDigits@{p, NextPrime@ p}]], c++; p = q]]; pp]; a /@ Range[0, 3]
allocated
nonn,base,more
Giovanni Resta, May 14 2020
approved
editing
allocated for Giovanni Resta
allocated
approved