OFFSET
0,3
LINKS
T. D. Noe, Table of n, a(n) for n = 0..5000
FORMULA
EXAMPLE
a(10)=3 because in row 10 of A007318 we observe the three squarefree numbers 1, 10 and 210.
MAPLE
A238337 := proc(n)
local sqf ;
sqf := {} ;
for k from 0 to n do
b := binomial(n, k) ;
if b=1 or numtheory[issqrfree](b) then
sqf := sqf union { b} ;
end if;
end do:
nops(sqf) ;
end proc:
seq(A238337(n), n=0..10) ; # R. J. Mathar, Mar 06 2014
MATHEMATICA
Table[Length[Select[Binomial[n, Range[0, n/2]], SquareFreeQ[#] &]], {n, 0, 100}]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 05 2014
STATUS
approved