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,1

Links

Table of n, a(n) for n=1..52.

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 *)

Crossrefs

Cf. A006881, A085986

Sequence in context: A355790 A240527 A262743 * A114407 A259942 A114417

Adjacent sequences: A176816 A176817 A176818 * A176820 A176821 A176822

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 26 2010

Status

approved