A092908 Primes in A051022.
2, 3, 5, 7, 101, 103, 107, 109, 307, 401, 409, 503, 509, 601, 607, 701, 709, 809, 907, 10007, 10009, 10103, 10301, 10303, 10501, 10601, 10607, 10709, 10903, 10909, 20101, 20107, 20201, 20407, 20507, 20509, 20707, 20807, 20809, 20903
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Select[Table[FromDigits[Riffle[IntegerDigits[n],0]],{n,300}],PrimeQ] (* Harvey P. Dale, Nov 17 2013 *)
Extensions
More terms from Pab Ter (pabrlos(AT)yahoo.com), May 24 2004
Comments