login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A063778 a(n) = the least integer that is polygonal in exactly n ways. 15

%I #30 Jan 25 2024 07:07:21

%S 3,6,15,36,225,561,1225,11935,11781,27405,220780,203841,3368925,

%T 4921840,7316001,33631521,142629201,879207616,1383958576,3800798001,

%U 12524486976,181285005825,118037679760,239764947345,738541591425,1289707733601,1559439365121

%N a(n) = the least integer that is polygonal in exactly n ways.

%C a(n) has exactly n representations as an m-gonal number P(m,r) = r*((m-2)*r-(m-4))/2, with m>2, r>1.

%C a(28) > 4*10^12. - _Donovan Johnson_, Dec 08 2010

%C From _Husnain Raza_, Jan 01 2024: (Start)

%C a(28) <= 14189300403201

%C a(29) <= 100337325689601

%C a(30) <= 1735471549713825

%C a(31) <= 334830950355825

%C a(32) <= 1473426934890625

%C a(33) <= 5409964920838401

%C (End)

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PolygonalNumber.html">Polygonal Number</a>.

%e a(3) = 15 because 15 is the least integer which is polygonal in 3 ways (15 is n-gonal for n = 3, 6, 15).

%p A063778 := proc(nmax) local a,n,ps ; a := [seq(0,i=1..nmax)] ; n := 1 ; while true do ps := A129654(n) ; if ps > 0 and ps <= nmax and n > 1 then if op(ps,a) = 0 then a := subsop(ps=n,a) ; print(a) ; fi ; fi ; n := n+1 ; end: RETURN(a) ; end: A063778(30) ; # _R. J. Mathar_, May 14 2007

%t P[m_, r_] := P[m, r] = r*(4 + m*(r - 1) - 2*r)/2;

%t a[n_Integer] := a[n] = Module[{c, r, m, p, f}, p = 0; f = False; While[!f, p++; c = 0; For[m = 3, m <= p, m++, For[r = 1, r <= p, r++, If[p == P[m, r], c++;];];]; If[c == n, f = True;];]; p];

%t Table[a[n], {n, 1, 5}] (* _Robert P. P. McKone_, Jan 02 2024 *)

%o (PARI) lista(nn) = {rec = 0; for (n=3, nn, new = sum(k=3, n, ispolygonal(n, k)); if (new > rec, rec = new; print1(n, ", ")););} \\ _Michel Marcus_, Mar 25 2015

%Y Cf. A177025 (number of different ways to represent n as a polygonal).

%Y Cf. A129654 (number of different ways to represent n as general polygonal).

%K nonn,nice

%O 1,1

%A _David W. Wilson_, Aug 16 2001

%E Edited by _N. J. A. Sloane_ at the suggestion of _Andrew S. Plewe_, May 23 2007

%E a(22)-a(27) from _Donovan Johnson_, Dec 08 2010

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 09:04 EDT 2024. Contains 371240 sequences. (Running on oeis4.)