|
%I #7 Jan 06 2013 13:02:13
%S 20,40,50,100,130,170,230,260,280,320,350,400,460,560,580,610,620,650,
%T 680,700,740,760,910,940,1030,1070,1150,1160,1190,1220,1280,1300,1360,
%U 1420,1460,1490,1660,1670,1700,1730,1790,1820,1850,1910,2020,2080,2120,2230,2260,2350,2380,2470,2480
%N Numbers n such that n99 is prime and n is a multiple of ten.
%H Harvey P. Dale, <a href="/A104153/b104153.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[10*Range[250],PrimeQ[FromDigits[Join[IntegerDigits[#],{9,9}]]]&] (* _Harvey P. Dale_, Jan 06 2013 *)
%Y Cf. A102703.
%K base,nonn
%O 1,1
%A _Parthasarathy Nambi_, Mar 08 2005
|
