Nombres d'Hipparque

Les nombres d'Hipparque sont nommés d'après le mathématicien et astronome grec, qui, selon Plutarque, connaissait certainement ces nombres.

Culture

  • Hipparque a été actif en Grèce, au moins entre 147 et 127 av. J.-C.
  • Plutarque est un philosophe majeur de la Rome antique, qui a vécu de 46 à 125, soit deux siècles après Hipparque.

Ci-dessus, les \(s_4=11\) subdivisions d'un pentagone.

On admettra que :

  • Le \(n\)-ième nombre \(s_n\) de la suite est le nombre de subdivisions d'un polygone à \(n + 1\) côtés en polygones plus petits par l'adjonction de diagonales au polygone de départ.
  • \(s_2=1\), et \(s_3=3\).
  • Une formule pour calculer \(s_n\) avec \(n>3\) est :
\[s_n = \frac{\left((6n-9)s_{n-1} - (n-3)s_{n-2}\right)}n\]

Écrire une fonction telle que hipparque(n) renvoie le nombre \(s_n\) pour \(1 < n <100\).

Exemples 
>>> hipparque(3)
3
>>> hipparque(4)
11
>>> hipparque(5)
45
###(Dés-)Active le code après la ligne # Tests (insensible à la casse)
(Ctrl+I)
Entrer ou sortir du mode "deux colonnes"
(Alt+: ; Ctrl pour inverser les colonnes)
Entrer ou sortir du mode "plein écran"
(Esc)
Tronquer ou non le feedback dans les terminaux (sortie standard & stacktrace / relancer le code pour appliquer)
Si activé, le texte copié dans le terminal est joint sur une seule ligne avant d'être copié dans le presse-papier
Évaluations restantes : 10/10
.1280132mhS)cle-P=3tf.nqp_:avgby;s560or 1](k8+[*4iwu7d9,/050V0i0n0v0R0h0B0H0g0h0v0B0B0l010n0R0s010406050B0T0c0c0v0G0z040e0F0h0T0?0F0q050Y0}0 11130{0s04051j1c1m0Y1j0{0V0R0w0+0-0/0;0d0R0x0d0h1A0d0n0_050$0y0h0i1v0.0:011z1B1D1B0n1J1L1H0n0G1k0n0d0+160B0s0v0q0;0b011N1x010o0(0i0q0v0c0i1H1*1,1;1P1@1L1`1|0_0a0H0k0G0F0s0F0B0R190q0H0!1(0G0G0i0g2h1c1 0q1k0Y1$2u1Z1#1!1I0V210;1D0q1_2e1H1s1u0,1O2E0R2G0q0F2K1H0s2n1k2s2u2Y0|1+2i2M1=2R0G100h0_0H0I2r2$0`2#202(1P2*2,2.0b2;1,2?2s2D012{0v2-040H0m2 2t0{322_0;35370H0Q3b312$333h2.0C3l3d3n3f340F2+362.0D3s2@2%1w2`3x2|380U3C3e3F3g3H3z380M3L3u3N3w3y3i0W3T2^3V3p040I0E3!3E2N3W3I0I2:1d2=1n2W1c2K2x0V1#2C3v0g2S1}1k3`1l3^2!3=3005400!2X3U3-0q0_1z0s1+0G0r0T0i0t1|0c3l0H3D330F0_0l4s4u3v0^040O3l4A3V4w040j4F3M3-0c0R0_3;2!4M1=4C0X4z4T1P4O4Q4L4e4U0_4W482t4t4Y0;4!3(4$3#3-4V4X4%4Z4P043a4+4d4?4(040J3s063t511P0L0_0!0o4=3,1=0S2.5e3o0o4h0@4k4m0i5j4B0_0K5r3$0_1b4 4G4@0_0f0u3s0H5G4-4`3g0_0R4_580;4I4y4 5I5O340y0_245v5B045u5z4.345m4j115p4p0i4r5%5J014C0f5F5H5A1=5a040S1z1L5N5f2`5x624v0_020x0n0A5R2Y5T635K045M5;5U4C5E4 065H6q6f3o5b0R0o0o0i2n0q0g5q5S5{1P5Q665s5#5Z1=4:3B6D5(4I0P6H5w6i6S3-4I4K6O5=4:3Z6k6g5?5C6V1=6Q6+64044i5o4n5.5:4S5=4C4E6%6t6U6Z5U6X6.4/4|4R3?5(4C54706(727b334C5$6_5U4g6 6e6E5P0_6Y7m5(4:4~7i6(5@73016-7e3v7k6;5,6?4q6K1P6{7I6h6j7r5=7d7O5U4:2~6}6I7a2Y6p6r5G7n5)040}1t1,0n7y6G7B6T1s6w6y1_6B7-0_0Y0Y7y7k7N2=7Z7!7$7D5n7F4o7H7V4H0_0p7L7%0v4j1_0V8d7g8d7k7)0w7+8j6*6o7!7#5(7~7_040N6d2=6s3v4:7630818C3V5}2n0n0T0G5y7R6(845+4l7G5/8q4D8l65895!7X801c4b0i2u2V8+3_1t3{2x2A2v0v1K8.0Y3`0{8{0#0%0)04.