A176819 Distances between terms in A085986.

64, 96, 29, 216, 43, 192, 413, 67, 69, 219, 77, 595, 485, 424, 224, 115, 480, 381, 536, 715, 453, 795, 501, 171, 173, 712, 368, 187, 189, 2211, 1085, 904, 699, 237, 723, 245, 1512, 1048, 267, 1925, 283, 285, 576, 291, 2709, 939, 317, 640, 1635, 3773, 355, 1805

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Apr 26 2010

Keywords

• nonn

Crossrefs

Cf. A006881, A085986

Programs

Mathematica

q[n_]:=Last/@FactorInteger[n]=={2,2};lst=Select[Range[3*8! ],q[ # ]&];a=Table[lst[[n+1]]-lst[[n]],{n,1,Length[lst]-1}]
Differences[Select[Range[200],PrimeOmega[#]==2&&SquareFreeQ[#]&]^2] (* Harvey P. Dale, Aug 05 2024 *)