[go: up one dir, main page]

login
A073486
Squarefree numbers having at least one prime gap.
10
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
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 *)
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 03 2002
STATUS
approved