A073486 Squarefree numbers having at least one prime gap.

10, 14, 21, 22, 26, 33, 34, 38, 39, 42, 46, 51, 55, 57, 58, 62, 65, 66, 69, 70, 74, 78, 82, 85, 86, 87, 91, 93, 94, 95, 102, 106, 110, 111, 114, 115, 118, 119, 122, 123, 129, 130, 133, 134, 138, 141, 142, 145, 146, 154, 155, 158, 159, 161, 165, 166, 170, 174, 177

Offset: 1

Author

Reinhard Zumkeller, Aug 03 2002

Keywords

• nonn

Comments

Subsequence of A193166. - Reinhard Zumkeller, Aug 26 2011

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A005117, A073487, A073488, A073489, A073485, A073492, A193166.

Programs

Mathematica

q[n_] := SequenceCount[FactorInteger[n][[;; , 1]], {p1_, p2_} /; p2 != NextPrime[p1]] > 0; Select[Range[177], SquareFreeQ[#] && q[#] &] (* Amiram Eldar, Apr 10 2021 *)

Formula

A073484(a(n)) > 0 and A073483(a(n)) > 1.

A192280(a(n)) = 0. - Reinhard Zumkeller, Aug 26 2011