Posté par
infophile infophileBonjour
Je ne sais pas si tu as découvert ça par hasard mais si c'est le cas tu as beaucoup de chance
J'ai fait un petit programme qui teste les nombres qui sont égaux à la somme de leur chiffre :
Citation :
chiffres:=proc(n) local i,s,a,c;
c:=floor(ln(n)/ln(10))+1;
s:=0;
for i from 1 to c do
a:=floor(n/10^(i-1)) mod 10;
s:=s+a;
od;
end;
Citation :
test:=proc(a) local i;
for i from 1 to a do
if i=chiffre(2^i) then print(i)
fi;
od;
end;
Les seules valeurs pour lesquelles ça marche sont i = 5 et i = 70 ! Du moins pour i testé suffisamment grand, on doit pouvoir établir des résultats plus théoriques en utilisant des arguments plus mathématiques.
