|
%I #16 Jan 03 2021 08:36:06
%S 0,10,30,60,90,130,160,190,220,270,330,340,360,390,400,450,510,540,
%T 550,580,600,660,690,720,730,750,760,790,870,880,900,990,1000,1060,
%U 1180,1200,1210,1290,1300,1380,1390,1410,1420,1440,1510
%N Numbers k such that 10*k + 7 is prime and k is a multiple of ten.
%e If t=10, then 10*t + 7 = 107 (prime).
%e If t=220, then 10*t + 7 = 2207 (prime).
%e If t=450, then 10*t + 7 = 4507 (prime).
%t Select[10 Range[0,500],PrimeQ[10#+7]&] (* _Harvey P. Dale_, Dec 09 2010 *)
%K base,nonn
%O 1,2
%A _Parthasarathy Nambi_, Mar 01 2005
%E More terms from _Harvey P. Dale_, Dec 09 2010
%E a(1)=0 inserted by _Georg Fischer_, Jan 03 2021
|
