A305635 - OEIS

%I #14 Sep 08 2022 08:46:21

%S 1,3,5,7,11,13,15,17,19,21,23,29,31,33,35,37,39,41,43,45,47,51,53,55,

%T 57,59,61,63,65,67,69,71,73,75,77,79,83,85,87,89,91,93,95,97,99,101,

%U 103,105,107,109,111,113,115,117,119,123,127,129,131,133,135,137

%N 1 and odd numbers that are not perfect powers.

%t radQ[n_]:=Or[n==1,GCD@@FactorInteger[n][[All,2]]==1];

%t Select[Range[200],OddQ[#]&&radQ[#]&]

%o (PARI) isok(n) = (n==1) || ((n % 2) && !ispower(n)); \\ _Michel Marcus_, Jun 08 2018

%o (Magma) [1] cat  [n : n in [3..200 by 2] | not IsPower(n) ]; // _Vincenzo Librandi_, Jul 06 2018

%Y Cf. A001597, A005117, A007916, A039956, A056911.

%Y Cf. A305630, A305631, A305632, A305633, A305634.

%K nonn

%O 1,2

%A _Gus Wiseman_, Jun 07 2018