|
| |
|
|
A064462
|
|
First row of Pascal's triangle that has n non-squarefree entries, or -1 if no such row exists.
|
|
2
| | |
|
|
|
OFFSET
| 0,1
|
|
|
EXAMPLE
| a(13) = 4 because C(13,5) = C(13,8) = 3^2*11*13 and C(13,6) = C(13,7) = 2^2*3*11*13.
|
|
|
MATHEMATICA
| f[ n_ ] := (c = 0; k = 1; While[ k < n, If[ Union[ Transpose[ FactorInteger[ Binomial[ n, k ] ] ] [ [ 2 ] ] ] [ [ -1 ] ] > 1, c++ ]; k++ ]; c); Do[ m = 2; While[ f[ m ] != n, m++ ]; Print[ m ], {n, 0, 6} ]
|
|
|
CROSSREFS
| Cf. A064460, A064461.
Sequence in context: A163755 A100851 A204985 * A111807 A069914 A200746
Adjacent sequences: A064459 A064460 A064461 * A064463 A064464 A064465
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 02 2001
|
| |
|
|
