OFFSET
1,2
COMMENTS
Questions: Is 85 the only composite in this sequence? (See also A364565). Are there any more terms after 127, or is the sequence finite?
EXAMPLE
PROG
(PARI)
A005941(n) = { my(f=factor(n), p, p2=1, res=0); for(i=1, #f~, p = 1 << (primepi(f[i, 1])-1); res += (p * p2 * (2^(f[i, 2])-1)); p2 <<= f[i, 2]); (1+res) }; \\ (After David A. Corneth's program for A156552)
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)};
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Antti Karttunen, Aug 14 2023
STATUS
approved