OFFSET
0
COMMENTS
LINKS
PROG
(PARI) A373601(n) = { my(m=1, p=2, c1=0, c2=0); while(n, if(1==(p%3), c1 += (n%p), if(2==(p%3), c2 += (n%p))); n = n\p; p = nextprime(1+p)); 0==((c1-c2)%3); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 18 2024
STATUS
approved