login
Primes in A051022.
3

%I #6 Jan 21 2019 19:01:55

%S 2,3,5,7,101,103,107,109,307,401,409,503,509,601,607,701,709,809,907,

%T 10007,10009,10103,10301,10303,10501,10601,10607,10709,10903,10909,

%U 20101,20107,20201,20407,20507,20509,20707,20807,20809,20903

%N Primes in A051022.

%H Harvey P. Dale, <a href="/A092908/b092908.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Table[FromDigits[Riffle[IntegerDigits[n],0]],{n,300}],PrimeQ] (* _Harvey P. Dale_, Nov 17 2013 *)

%K nonn,base,easy

%O 1,1

%A _Jorge Coveiro_, Apr 15 2004

%E More terms from Pab Ter (pabrlos(AT)yahoo.com), May 24 2004