A232102 Primes p with same last two digits as k, where prime(k) = p.

1543, 3719, 4289, 5303, 5641, 6323, 7001, 7559, 7673, 8233, 8681, 9697, 9923, 12043, 12377, 12491, 12941, 14723, 14951, 15511, 15959, 17627, 17959, 18521, 21739, 21851, 21961, 22961, 24847, 25733, 26177, 28279, 29723, 30491, 31489, 32261, 34259, 34483

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

a(n) = prime(A067838(n)).

Example

243 and prime(243)=1543, both end with 43.

Mathematica

sltdQ[k_]:=Module[{p=Prime[k]}, Mod[p, 100]==Mod[k, 100]]; Prime[#]&/@ Select[ Range[4000], sltdQ] (* Harvey P. Dale, Dec 26 2021 *)

Prog

(PARI)
cutdigit(a, p, q)=(a%10^q)\10^(p-1)
{for(n=1, 5000, p=prime(n); if(cutdigit(p, 1, 2)==cutdigit(n, 1, 2), print(p)))}
(Magma) [NthPrime(n): n in [1..5*10^3] | n mod 100 eq NthPrime(n) mod 100]; // Bruno Berselli, Nov 19 2013

Crossrefs

Cf. A085598, A067838, A232104.

Sequence in context: A137598 A252966 A133560 * A234031 A038009 A362507

Adjacent sequences: A232099 A232100 A232101 * A232103 A232104 A232105

Keyword

nonn,base

Author

Antonio Roldán, Nov 18 2013

Status

approved