OFFSET
1,1
COMMENTS
The numbers of terms not exceeding 10^k for k = 2, 3, ..., are 8, 64, 624, 6281, 62779, 627904, 6279725, 62796307, 627961560, ... Apparently this sequence has an asymptotic density 0.062796...
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
44 is a term since 44 = 2^2 * 11 and 45 = 3^2 * 5 both have an even exponent in their prime factorization.
MATHEMATICA
expOddQ[n_] := AllTrue[FactorInteger[n][[;; , 2]], OddQ]; Select[Range[10^3], !expOddQ[#] && !expOddQ[# + 1] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 04 2021
STATUS
approved