OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..23520; terms less than 2^25
PROG
(PARI) is_A391864(n) = { my(f=factor(n), pr=1, q=1, ad=n*sum(i=1, #f~, f[i, 2]/f[i, 1]), s = (-ad)%2310); for(k=1, #f~, if(f[k, 1]>11, return(!(s%2310))); forprime(p = nextprime(1+q), f[k, 1]-1, pr *= p; q = p); s += f[k, 2]*pr); (!(s%2310)); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 16 2026
STATUS
approved
