1,1

n such that [A002110(n)/2]-2 is prime.

p = 1; Do[p = p*Prime[n]; If[PrimeQ[(p - 4)/2], Print[n]], {n, 1, 400} ]

Cf. A002110, A067024, A067027.

Sequence in context: A059109 A039113 A130399 this_sequence A096829 A039120 A075493

Adjacent sequences: A067023 A067024 A067025 this_sequence A067027 A067028 A067029

nonn

Labos E. (labos(AT)ana.sote.hu), Dec 29 2001

More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 30 2001