|
%I #7 Jan 13 2023 16:53:18
%S 11,13,18,42,53,82,100,110,172,216,221,271,279,339,347,369,445,450,
%T 496,556,575,603,624,647,682,737,741,751,775,835,841,873,881,968,982,
%U 1019,1031,1069,1076,1099,1166,1199,1206,1245,1266,1285,1417,1432,1463,1471,1505
%N Numbers n such that (prime(n)-11)/10 is a prime.
%p Maple code for A089442, A143365, A155978:
%p p:=ithprime; t1:=[]; t2:=[]; t3:=[]; for n from 1 to 10000 do q:=p(n); if (q-11) mod 10 = 0 and isprime((q-11)/10) then t1:=[op(t1),q]; t2:=[op(t2),n]; t3:=[op(t3), (q-11)/10]; fi; od: t1; t2; t3;
%t Select[Range[2000],PrimeQ[(Prime[#]-11)/10]&] (* _Harvey P. Dale_, Jan 13 2023 *)
%Y Cf. A089442, A155978.
%K nonn
%O 1,1
%A _N. J. A. Sloane_, Jul 04 2010
|
