OFFSET
1,2
COMMENTS
Of 2608 initial terms, only 188 are not in A353796. The first three of these are: 400, 784, 832.
LINKS
PROG
(PARI)
A003958(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1]--); factorback(f); };
A003961(n) = { my(f = factor(n)); for(i=1, #f~, f[i, 1] = nextprime(f[i, 1]+1)); factorback(f); }; \\ From A003961
A064989(n) = { my(f=factor(n>>valuation(n, 2))); for(i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f); };
isA353795(n) = !(A353794(n)%n);
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 12 2022
STATUS
approved