Toujours en adaptant ça : http://www.prise2tete.fr/forum/viewtopi … 187#p34467

// toutes les conditions <5
a = (i0+i1*5+i2*25+i3*125+i4*625+i5*3125+i6*15625+i7*78125+i8*390625+i9*1953125)/(i0+i1+i2+i3+i4+i5+i6+i7+i8+i9)

16,22,28,46,56,58,68,74,76,80,106,108,110,118,128,136,138,
140,146,152,168,198,202,206,208,230,249,256,258,262,263,
268,274,276,278,280,284,286,288,290,292,294,296,298,302,
318,323,324,326,336,338,340,346,352,354,362,366,368,370,
376,380,386,400,406,418,448,452,456,458,462,466,508,512,
518,524,526,530,536,540,550,578,584,586,588,590,596,598,
602,604,612,622,628,636,638,640,646,652,664,666,674,676,
680,688,690,700,706,708,712,716,730,752,758,760,764,766,
778,796,836,838,840,846,852,886,898,902,914,916,934,964,
968,974,976,978,982,984,986,988,990

Il existe une bijection triviale entre les entiers naturels et les "sommes d'au plus 4 fois chaque puissance de 5" : l'écriture en base 5 d'un entier.

Edit : Je viens de m'apercevoir que j'avais fait un copié-collié trop long je viens de rectifier.

De plus la "moyene" s'obtient alors en divisant l'entier représenté par la somme des valeurs des chiffres que sa représentation en base 5 nécessite.

Enfin on sait qu'on nombre n représenté en base 5 nécessite [latex] \frac{n} {\lfloor\log_5{n}\rfloor+1} [/latex] chiffres.
Donc à partir d'un entier n, les "moyennes" ne peuvent définir que des entiers supérieurs ou égaux à [latex] \frac{n} {4*\lfloor\log_5{n}\rfloor+1} [/latex].

J'ai donc fait un programme qui calcul ces moyennes pour tous les entiers jusqu'a un entier max donné.
Tous les nombres entiers inférieurs à [latex] \frac{max} {4*\lfloor\log_5{max}\rfloor+1} [/latex] absents de la liste de ces moyennes calculées sont ainsi des entiers de la série a trouver.

10 premiers
16, 22, 28, 46, 56, 58, 68, 74, 76, 80,
25 premiers
106, 108, 110, 118, 128, 136, 138, 140, 146, 152, 168, 198, 202, 206, 208,
et plus ....
230, 249, 256, 258, 262 263, 268, 274, 276, 278, 280, 284, 286, 288, 290, 292, 294, 296, 298, 302, 318, 323, 324, 326, 336, 338, 340, 346, 352, 354, 362, 366, 368, 370, 376, 380, 386, 400, 406, 418, 448, 452, 456, 458, 462, 466, 508, 512, 518, 524, 526, 530, 536, 540, 550, 578, 584, 586, 588, 590, 596, 598, 602, 604, 612, 622, 628, 636, 638, 640, 646, 652, 664, 666, 674, 676, 680, 688, 690, 700, 706, 708, 712, 716, 730, 752, 758, 760, 764, 766, 778, 796, 836, 838, 840, 846, 852, 886, 898, 902, 914, 916, 934, 964, 968, 974, 976, 978, 982, 984, 986, 988, 990,  (en fait j'en ai calculé + 1000 :-p)

ça marche exactement pareil en base 4 et 3

Héhé comme je baigne dans les bases peut être qu'effectivement ça m'a plus facilement sauté aux yeux :-p.

En fait, d'une part il y a une premiere bijection entre les suites finies de chiffres d'une base et l'ensemble des entiers naturels.
Celle-là nous l'acceptons tous en l'utilisant dans la vie de tous les jours en base 10 par ex ou bien à travers nos ordinateurs qui utilisent d'autres bases comme 2, 8 ou 16. Malgré tout si on enleve ou rajoute un chiffre (caractere) sans changer la base, ce n'est plus une bijection.

D'autre part l'énonce parle de sommes "d'au plus 4 fois chaque puissance de 5".
Les suites finies de chiffres d'une base sont en fait une représentation condensée de ces sommes. On écrit les coefficients de chaque puissance (chiffre entre 0 et la base moins un) et on ordonne ces coefficient par les valeurs des puissances.

Je me suis pas foulé sur les explications en espérant que ça suffise mais au besoin je peux faire un effort supplémentaire ^^.

Je vous ajoute mon code Scheme pour calculer tout ça

;fonction qui crée la liste des entiers entre un et n
(define (iota n)
  (local [(define (iter k)
    (if (> k n) 
      empty
      (cons k (iter (+ k 1)))))]
    (iter 1)))

;calcule la somme des chiffres de n en base b
(define (sum_dig_base b n)
  (if (<= n 0) 
      0
      (+ (modulo n b) (sum_dig_base b (quotient n b)))))

;calcule un minorant de la moyenne mininum calculable pour un entier n et une base b
(define (min_moyenne b n)
  (quotient n (* (- b 1) (+ 1 (floor (/ (log n) (log b)))))))

;l'entier max que l'on va décomposer
(define max 20000)
;la base utilisée
(define base 3)

;le plus grand nombre de la série que l'on pourra chercher suivant max et base
(define min_moy (min_moyenne base max))

;tous les entiers que je vais convertir en moyenne
(define entiers (iota max))

;je convertis ces entiers en moyenne
(define moy (map / entiers (map (lambda (x) (sum_dig_base base x)) entiers)))

;j'enleve la liste des moyennes à la liste des entiers possibles
(define res (filter (lambda (x) (not (member x moy))) (iota min_moy)))

;affichage du résultat 
res