OFFSET
1,1
COMMENTS
PROG
(PARI)
A065338(n) = { my(f = factor(n)); for (i=1, #f~, f[i, 1] = (f[i, 1]%4)); factorback(f); };
isA137409(n) = ((1==n)||(A065338(n)>1)); \\ Antti Karttunen, Dec 26 2020
A000265(n) = (n>>valuation(n, 2));
isA339870(n) = ((n>1)&&!isprime(n)&&(1==(n%4))&&!((n-1)%A000265(eulerphi(n))));
isA339875(n) = (isA137409(n)&&isA339870(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Dec 26 2020
STATUS
approved