OFFSET
1,2
COMMENTS
a(n)=1 for n=19 and 7476. Are there others?
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
spf:= proc(n) add(t[1]*t[2], t=ifactors(n)[2]) end proc:
f:= proc(n) local p;
p:= ithprime(n);
spf(p-1)*spf(p+1) mod p
end proc:
map(f, [$1..100]);
CROSSREFS
KEYWORD
nonn,look
AUTHOR
J. M. Bergot and Robert Israel, Nov 30 2020
STATUS
approved