OFFSET
0,2
LINKS
Robert Israel, Table of n, a(n) for n = 0..1000
FORMULA
A340996(a(n)) = n.
MAPLE
f:= proc(n) local k; nops(select(isprime, {seq(n mod k, k=select(isprime, [$2..n-1]))})) end proc:
V:= Array(0..100):
count:= 0:
for n from 1 while count < 101 do
v:= f(n);
if v <= 100 and V[v] = 0 then V[v]:= n; count:= count+1;
od:
convert(V, list);
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Feb 01 2021
STATUS
approved