A271045 Primes p such that p and prime(p) end with the same three digits.

1723, 7817, 9551, 12637, 23071, 29201, 29287, 30059, 38653, 43067, 53617, 56671, 57727, 57809, 60811, 73351, 74201, 78307, 79423, 87403, 89413, 91771, 107647, 108301, 113039, 115259, 116579, 118543, 133271, 133649, 138283, 140317, 154111, 155569, 160681

Offset

1,1

Comments

Subsequence of A067841.

Links

Colin Barker, Table of n, a(n) for n = 1..350

Example

1723 is in the sequence because 1723 % 1000 = 723, prime(1723) = 14723 and 14723 % 1000 = 723.

Mathematica

Select[Prime@ Range@ 15000, Mod[#, 1000] == Mod[Prime@ #, 1000] &] (* Michael De Vlieger, Mar 29 2016 *)

Prog

(PARI) L=List(); forprime(p=2, 300000, if(p%1000==prime(p)%1000, listput(L, p))); Vec(L)
(Python)
from sympy import isprime, prime
for p in range(2, 100000):
    if(prime(p)%1000==p%1000 and isprime(p)):print(p)
# Soumil Mandal, Apr 04 2016

Crossrefs

Cf. A067841, A271043, A271044, A271046.

Sequence in context: A048958 A145648 A035867 * A031814 A020427 A232299

Adjacent sequences: A271042 A271043 A271044 * A271046 A271047 A271048

Keyword

nonn,easy,base

Author

Colin Barker, Mar 29 2016

Status

approved