OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..469
EXAMPLE
prime(23, 103, 293, 503, 823, 883, 953, 983, 1033, 1163) = (83, 563, 1913, 3593, 6323, 6863, 7523, 7753, 8233, 9403).
MATHEMATICA
Intersection[A030431 = Select[Range[3, 1000003, 10], PrimeQ], PrimePi[A030431]] (* gives 469 terms for prime(n) up to 10^6 *)
Select[Prime[Range[50000]], Mod[#, 10]==Mod[Prime[#], 10]==3&] (* gives 3126 terms from the first 50000 primes *)(* Harvey P. Dale, Nov 29 2014 *)
PROG
(PARI) s=[]; forprime(n=2, 8000, if(n%10==3 && prime(n)%10==3, s=concat(s, n))); s \\ Colin Barker, Apr 16 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 13 2014
STATUS
approved