OFFSET
1,1
COMMENTS
Numbers k such that the odd part of k [= A000265(k)] is a prime power, p^e, e >= 1, and that prime p is of the form 4u+1.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
A389199Q[k_] := k > 1 && Mod[Times @@ (FactorInteger[k][[All, 1]] + 1), 4] == 2;
Select[Range[500], A389199Q] (* Paolo Xausa, Oct 13 2025 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 06 2025
STATUS
approved