A143365 Numbers n such that (prime(n)-11)/10 is a prime.

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

Links

Table of n, a(n) for n=1..51.

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

Cf. A089442, A155978.

Sequence in context: A211457 A154523 A107932 * A090137 A358573 A306926

Adjacent sequences: A143362 A143363 A143364 * A143366 A143367 A143368

Keyword

nonn

Author

N. J. A. Sloane, Jul 04 2010

Status

approved