OFFSET
1,3
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..168
MATHEMATICA
seq[len_, nmax_] := Module[{s = Table[-1, {len}], c = 0, n = 0, i}, While[c < len && n <= nmax, i = Length[ContinuedFraction[Abs[BernoulliB[2*n]]]]; If[i <= len && s[[i]] < 0, c++; s[[i]] = n]; n++]; s]; seq[60, 10^4]
PROG
(PARI) lista(len, nmax) = {my(s = vector(len, i, -1), c = 0, n = 0, i); while(c < len && n <= nmax, i = #contfrac(abs(bernfrac(2*n))); if(i <= len && s[i] < 0, c++; s[i] = n); n++); s; }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 14 2023
STATUS
approved