A172079 First differences of A181669.

6, 12, 24, 12, 48, 60, 12, 48, 120, 12, 480, 180, 300, 48, 120, 132, 408, 180, 792, 120, 48, 300, 660, 132, 288, 240, 12, 300, 540, 240, 780, 120, 48, 732, 1260, 1188, 600, 1092, 408, 432, 1848, 480

Offset: 1

Author

Giovanni Teofilatto, Nov 19 2010

Keywords

• nonn
• easy

Crossrefs

Cf. A181669.

Programs

Mathematica

Differences[Select[6*Range[3000]-1,PrimeQ[#]&&PrimeOmega[#-1]==2&&AnyTrue[ {#+2,Sqrt[#+2]},PrimeQ]&]] (* Harvey P. Dale, Jul 01 2022 *)

Extensions

a(21) ff. corrected by Georg Fischer, Aug 31 2020