This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A305635 #14 Sep 08 2022 08:46:21 %S A305635 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 A305635 57,59,61,63,65,67,69,71,73,75,77,79,83,85,87,89,91,93,95,97,99,101, %U A305635 103,105,107,109,111,113,115,117,119,123,127,129,131,133,135,137 %N A305635 1 and odd numbers that are not perfect powers. %t A305635 radQ[n_]:=Or[n==1,GCD@@FactorInteger[n][[All,2]]==1]; %t A305635 Select[Range[200],OddQ[#]&&radQ[#]&] %o A305635 (PARI) isok(n) = (n==1) || ((n % 2) && !ispower(n)); \\ _Michel Marcus_, Jun 08 2018 %o A305635 (Magma) [1] cat [n : n in [3..200 by 2] | not IsPower(n) ]; // _Vincenzo Librandi_, Jul 06 2018 %Y A305635 Cf. A001597, A005117, A007916, A039956, A056911. %Y A305635 Cf. A305630, A305631, A305632, A305633, A305634. %K A305635 nonn %O A305635 1,2 %A A305635 _Gus Wiseman_, Jun 07 2018