%I #12 Jul 01 2022 11:09:57
%S 6,12,24,12,48,60,12,48,120,12,480,180,300,48,120,132,408,180,792,120,
%T 48,300,660,132,288,240,12,300,540,240,780,120,48,732,1260,1188,600,
%U 1092,408,432,1848,480
%N First differences of A181669.
%t Differences[Select[6*Range[3000]-1,PrimeQ[#]&&PrimeOmega[#-1]==2&&AnyTrue[ {#+2,Sqrt[#+2]},PrimeQ]&]] (* _Harvey P. Dale_, Jul 01 2022 *)
%Y Cf. A181669.
%K nonn,easy
%O 1,1
%A _Giovanni Teofilatto_, Nov 19 2010
%E a(21) ff. corrected by _Georg Fischer_, Aug 31 2020
|