A122132 - OEIS (original) (raw)

1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 26, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74, 76, 77, 78, 79, 80, 82, 83, 84, 85

COMMENTS

These numbers are called "oddly squarefree" in Banks and Luca. - Michel Marcus, Mar 14 2016

The asymptotic density of this sequence is 8/Pi^2 (A217739). - Amiram Eldar, Sep 21 2020

MATHEMATICA

Select[Range@ 85, SquareFreeQ[#/2^IntegerExponent[#, 2]] &] (* Michael De Vlieger, Mar 15 2020 *)

PROG

(Haskell)

a122132 n = a122132_list !! (n-1)

a122132_list = filter ((== 1) . a008966 . a000265) [1..]