login
Distances between terms in A085986.
0

%I #4 Aug 05 2024 12:12:48

%S 64,96,29,216,43,192,413,67,69,219,77,595,485,424,224,115,480,381,536,

%T 715,453,795,501,171,173,712,368,187,189,2211,1085,904,699,237,723,

%U 245,1512,1048,267,1925,283,285,576,291,2709,939,317,640,1635,3773,355,1805

%N Distances between terms in A085986.

%t 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}]

%t Differences[Select[Range[200],PrimeOmega[#]==2&&SquareFreeQ[#]&]^2] (* _Harvey P. Dale_, Aug 05 2024 *)

%Y Cf. A006881, A085986

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Apr 26 2010