OFFSET
1,1
MATHEMATICA
q[n_] := Module[{v = IntegerExponent[n - 1, 2]}, AllTrue[FactorInteger[n][[;; , 1]], IntegerExponent[# - 1, 2] <= v &]]; Select[Range[2, 200], q] (* Amiram Eldar, Feb 10 2023 *)
PROG
(PARI) isA360117(n) = A360116(n);
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 10 2023
STATUS
approved