OFFSET
0,1
COMMENTS
Conjecture: all positive integers appear in A077618, so a(n) is never 0.
LINKS
Robert Israel, Table of n, a(n) for n = 0..168
MAPLE
N:= 10^6: # to get all terms before the first where a(n) > N
M:= map(numtheory:-bigomega, [$1..N]):
S:= map(numtheory:-issqrfree, [$1..N]):
f:= proc(n) local m, k, t;
if not S[n] then return 0 fi;
m:= M[n];
t:= 1;
for k from n-1 to 1 by -1 do
if M[k] = m then
if S[k] then return t
else t:= t+1
fi;
fi
od;
t
end proc;
R:= map(f, [$1..N]):
A:= NULL:
for i from 0 do
j:= ListTools:-Search(i, R);
if j = 0 then break fi;
A:= A, j
od:
A;
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Oct 20 2017
STATUS
approved