login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A064461 First row of Pascal's triangle that has n distinct nonsquarefree entries, or -1 if no such row exists. 4
0, 4, 13, 8, 9, 12, 17, 20, 16, 18, 26, 24, 62, 27, 34, 33, 32, -1, 36, 40, -1, 95, -1, 79, 48, 50, 54, 60, 56, 74, 67, 65, 64, 73, -1, 94, 72, 91, 85, 83, 80, 84, 119, 88, -1, 97, 104, 101, 96, 98, 100, -1, 115, -1, 108, 114, 112, 123, 122, 120, 121, 125, 131 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

COMMENTS

Numbers such that a(n) is -1: 17, 20, 22, 34, 44, 51, ... - Michel Marcus, Mar 05 2014

LINKS

Table of n, a(n) for n=0..62.

EXAMPLE

a(2) = 13 because C(13,5) = 3^2*11*13 and C(13,6) = 2^2*3*11*13.

MATHEMATICA

f[ n_ ] := (c = 0; k = 1; While[ k < n/2 + .5, 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, 16} ]

PROG

(PARI) a(n, v) = {for (i=1, #v, if (v[i] == n, return (i-1)); ); return (-1); } \\ where v is vector A064460; Michel Marcus, Mar 05 2014

CROSSREFS

Cf. A064460, A064462, A048276.

Sequence in context: A249120 A170844 A051432 * A046737 A046738 A095324

Adjacent sequences:  A064458 A064459 A064460 * A064462 A064463 A064464

KEYWORD

sign

AUTHOR

Robert G. Wilson v, Oct 02 2001

EXTENSIONS

Corrected and extended by Michel Marcus, Mar 05 2014

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 18 05:45 EDT 2019. Contains 328146 sequences. (Running on oeis4.)