OFFSET
1,2
COMMENTS
This sequence is well-defined.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Romanian Master in Mathematics Contest, Problem 3, Bucharest, 2007.
MAPLE
N:= 100: # for a(1)..a(N)
V:= Vector(N):
count:= 0: missing:= {$1..N}:
Q:= ilcm(seq(i, i=1..N)):
for m from 1 while count < N do
v:= floor(5^m/m);
r:= igcd(v, Q);
d:= select(t -> r mod t = 0, missing);
missing:= missing minus d;
count:= count+nops(d);
V[convert(d, list)]:= m;
od:
convert(V, list); # Robert Israel, Aug 27 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Mar 09 2008
STATUS
approved