OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..1258
EXAMPLE
a(6) = 7 is a term because A205791(7) = 8.
MAPLE
N:= 200: # for terms <= N
V:= Vector(N):
count:= 0:
for k from 1 while count < N do
for j from 1 to k-1 while count < N do
Q:= select(t -> t <= N and V[t] = 0, numtheory:-divisors(k^5-j^5));
if Q <> {} then
newcount:= nops(Q);
count:= count + newcount;
V[convert(Q, list)]:= k;
fi
od od:
select(t -> V[t] = t+1, [$1..N]);
MATHEMATICA
Select[Range@200, (k=1; While[FreeQ[Mod[Table[k^5-j^5, {j, k-1}], #], 0], k++]; k)==#+1&] (* Giorgos Kalogeropoulos, May 14 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, May 14 2021
STATUS
approved