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

Comments

Subsequence of A193166. - Reinhard Zumkeller, Aug 26 2011

Links

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

Formula

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

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

Mathematica

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

Crossrefs

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

Sequence in context: A063920 A269703 A057487 * A073487 A325161 A175586

Adjacent sequences: A073483 A073484 A073485 * A073487 A073488 A073489

Keyword

nonn

Author

Reinhard Zumkeller, Aug 03 2002

Status

approved