[go: up one dir, main page]

login
A143365
Numbers n such that (prime(n)-11)/10 is a prime.
2
11, 13, 18, 42, 53, 82, 100, 110, 172, 216, 221, 271, 279, 339, 347, 369, 445, 450, 496, 556, 575, 603, 624, 647, 682, 737, 741, 751, 775, 835, 841, 873, 881, 968, 982, 1019, 1031, 1069, 1076, 1099, 1166, 1199, 1206, 1245, 1266, 1285, 1417, 1432, 1463, 1471, 1505
OFFSET
1,1
MAPLE
Maple code for A089442, A143365, A155978:
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;
MATHEMATICA
Select[Range[2000], PrimeQ[(Prime[#]-11)/10]&] (* Harvey P. Dale, Jan 13 2023 *)
CROSSREFS
Sequence in context: A211457 A154523 A107932 * A090137 A358573 A306926
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jul 04 2010
STATUS
approved