OFFSET
0,7
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..10000
FORMULA
MATHEMATICA
Table[If[#>n, 0, #]&[NestWhile[#+1&, 1, SquareFreeQ[Binomial[n, #]]&]], {n, 0, 100}] (* Peter J. C. Moses, Nov 04 2014 *)
PROG
(PARI)
A249442(n) = { for(k=0, n\2, if(0==moebius(binomial(n, k)), return(k))); return(0); }
for(n=0, 10000, write("b249442.txt", n, " ", A249442(n)));
\\ Antti Karttunen, Nov 04 2014
CROSSREFS
Differs from A249695 for the first time at n=9.
KEYWORD
nonn
AUTHOR
Antti Karttunen and Vladimir Shevelev, Oct 28 2014
EXTENSIONS
More terms from Peter J. C. Moses, Oct 28 2014
STATUS
approved