|
%I #21 Jan 08 2021 13:29:52
%S 10,130,140,160,170,250,290,310,340,490,500,640,650,670,910,920,940,
%T 1040,1060,1070,1180,1190,1220,1270,1280,1330,1340,1360,1390,1460,
%U 1490,1600,1610,1670,1790,1910,1960,1970,1990,2000,2050,2060,2140,2170,2240,2440,2450,2480,2510,2560
%N Numbers n such that n33 is prime and n is a multiple of ten.
%H Daniel Starodubtsev, <a href="/A104130/b104130.txt">Table of n, a(n) for n = 1..10000</a>
%e If t=10, then t33 = 1033 (prime).
%e If t=170, then t33 = 17033 (prime).
%e If t=490, then t33 = 49033 (prime).
%t Select[10 Range[300],PrimeQ[100#+33]&] (* _Harvey P. Dale_, Jan 08 2021 *)
%o (PARI) for(k=1,230,if(isprime(1000*k+33),print1(10*k,", "))) \\ _Hugo Pfoertner_, Dec 21 2019
%Y Intersection of A008592 and A101472.
%K base,nonn
%O 1,1
%A _Parthasarathy Nambi_, Mar 06 2005
|
