OFFSET
1,1
COMMENTS
Subsequence of A067838. - Michel Marcus, Nov 18 2013
EXAMPLE
prime(1491)=12491 hence 1491 is in the sequence.
MATHEMATICA
Select[Range[2, 4 10^4], Mod[Prime[#], 1000]== Mod[#, 1000] &] (* Vincenzo Librandi, Oct 03 2017 *)
PROG
(PARI) isok(n) = (n % 1000) == (prime(n) % 1000); \\ Michel Marcus, Nov 18 2013
(Magma) [n: n in [1..4*10^4] | (n mod 1000) eq (NthPrime(n) mod 1000)]; // Vincenzo Librandi Oct 03 2017
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Benoit Cloitre, Mar 07 2002
STATUS
approved