A141275 Composite indices associated with A141274.
5, 17, 23, 41, 73, 97, 103, 113, 131, 137, 151, 173, 211, 229, 277, 317, 337, 347, 367, 421, 439, 463, 499, 503, 523, 557, 601, 631, 647, 677, 691, 727, 769, 827, 857, 881, 887, 907, 911, 1013, 1021, 1069, 1087, 1091, 1103, 1151, 1201, 1249, 1303, 1321
Offset: 1
Crossrefs
Cf. A141274.
Programs
-
Mathematica
a141274=Select[Range[4,1600],!PrimeQ[#]&&PrimeQ[#+1]&&PrimeQ[#-PrimePi[#]-2]&];findx[n_]:=n-PrimePi[n]-2;findx/@a141274 (* James C. McMahon, Jul 19 2025 *)
Extensions
Edited by N. J. A. Sloane, Jun 21 2008