OFFSET
1,1
COMMENTS
i||j denotes the concatenation of the decimal expansions of i and j.
LINKS
Carlos Rivera, Puzzle 995. Another sequence of primes, The Prime Puzzles and Problems Connection.
EXAMPLE
For p = prime(1) = 2 and prime(2) = 3 the concatenation 2||3 is prime; then 2+3 = 5 and the concatenation of 5 and prime(3) = 5 is 5||5 whicch is not a prime; so the process works for just one step, and a(1) = 2
For p = prime(11)= 31 and prime(12) = 37, the concatenation 31||37 is prime; then 31+37 = 68 and the concatenation of 68 and prime(13) = 41 is 68||41 which is prime; then 68+41 = 109 and the concatenation of 109 and prime(14) = 43 is 109||43 = 31*353 which is not prime; so the process ends after two steps. There is no prime < 31 such that the process continues for 2 steps, so a(2) = 31.
MATHEMATICA
catQ[{m_, n_}] := PrimeQ @ FromDigits @ Join[IntegerDigits[m], IntegerDigits[n]]; f[{c_, p_}] := {c + p, NextPrime[p]}; s[p_] := Length @ NestWhileList[f, {0, p}, catQ] - 2; a[n_] := Module[{p = 2}, While[s[p] != n, p = NextPrime[p]]; p]; Array[a, 5] (* Amiram Eldar, Apr 15 2020 *)
PROG
(PARI) isok(p, n) = {my(s = p); for (i=1, n, my(q = nextprime(p+1)); if (!isprime(eval(Str(s, q))), return (0)); s += q; p = q; ); return(1); }
a(n) = my(p=prime(1)); while (!isok(p, n), p=nextprime(p+1)); p;
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Michel Marcus, Apr 11 2020
EXTENSIONS
a(6) from Emmanuel Vantieghem, Apr 15 2020
a(7)-a(8) from Giovanni Resta, Apr 15 2020
STATUS
approved