OFFSET
1,1
COMMENTS
Terms occurring more than once include 2, 7, 31, and 4073. Are there any others?
LINKS
Robert Israel, Table of n, a(n) for n = 1..5000
EXAMPLE
a(3) = A340740(9) = 2.
MAPLE
f:= proc(n) local k;
add(`if`(igcd(k, n)=1, n mod k, 0), k=1..floor(n/2))
end proc:
select(isprime, map(f, [$1..1000]));
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Jan 18 2021
STATUS
approved