editing

approved

sp[n_]:=Module[{p=3}, While[CompositeQ[n*10^IntegerLength[p]+p], p= NextPrime[ p]]; p]; Array[sp, 100] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 26 2019 *)

approved

editing

editing

approved

f[n_] := Block[{p = 2, a = IntegerDigits[n]}, While[ !PrimeQ[ FromDigits[ Join[a, IntegerDigits[ Prime[p]]] ]], p++ ]; Prime[p]]; Table[ f[n], {n, 92}] (from * _Robert G. Wilson v _, Aug 20 2004 *)

(PARI) A096915(n) = { local(p=1); until(isprime(eval(Str(n, p=nextprime(p+2)))), ); p} [From _\\ _M. F. Hasler_, Jan 05 2009]

approved

editing

_Bodo Zinser (BodoZinser(AT)CosmoData.net), _, Aug 18 2004

(PARI) A096915(n) = { local(p=1); until(isprime(eval(Str(n, p=nextprime(p+2)))), ); p} [From _M. F. Hasler (www.univ-ag.fr/~mhasler), _, Jan 05 2009]

Cross-reference to indices of records corrected by _M. F. Hasler (www.univ-ag.fr/~mhasler), _, Jan 14 2009

More terms from _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Aug 20 2004

T. D. Noe, <a href="/A096915/b096915.txt">Table of n, a(n) for n=1..10000</a>

nonn,base,new

(PARI) A096915(n) = { local(p=1); until(isprime(eval(Str(n, p=nextprime(p+2)))), ); p} [From M. F. Hasler (MHasler(AT)www.univ-ag.fr/~mhasler), Jan 05 2009]

nonn,base,new

Cross-reference to indices of records corrected by M. F. Hasler (MHasler(AT)www.univ-ag.fr/~mhasler), Jan 14 2009

Record indices of this sequence are n=1, 3, 14, 71, 76, 131, 188, 196, 232, 314, 535, 695, 1451, 2474, 3868, 7717, 41284, 52462, 90760, 119008, 264433, 487534, 618691, 935477, 959456,... corresponding to record values a(n)=3, 7, 23, 29, 43, 47, 59, 61, 79, 89, 97, 131, 179, 239, 283, 313, 367, 373, 379, 541, 577, 601, 607, 617, 857. [From M. F. Hasler (MHasler(AT)univ-ag.fr), Jan 05 2009]

T. D. Noe, <a href="b096915.txt">Table of n, a(n) for n=1..10000</a>

Cf. A088606, A089777 (the resulting primes). Records: A137177, A144593.

nonn,base,new

Cross-reference to indices of records corrected by M. F. Hasler (MHasler(AT)univ-ag.fr), Jan 14 2009