OFFSET
1,2
COMMENTS
Numbers that are not products of an odd prime and a power of 2.
Numbers k such that the symmetric representation of sigma(k) has a number of subparts not equal to 2.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) not isprime(n/2^padic:-ordp(n, 2)) end proc:
select(filter, [$1..200]); # Robert Israel, May 09 2025
MATHEMATICA
A347202Q[k_] := !PrimeQ[k/2^IntegerExponent[k, 2]];
Select[Range[200], A347202Q] (* Paolo Xausa, May 12 2025 *)
PROG
(PARI) isok(m) = sumdiv(m, d, d%2) != 2; \\ Michel Marcus, Aug 23 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Aug 22 2021
STATUS
approved
