1,2
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
W. Schneider, NoZeros: Powers n^k without Digit Zero
Do[ If[ Union[ RealDigits[ 5^n ][[1]]] [[1]] != 0, Print[ n ]], {n, 1, 25000}]
Sequence in context: A071557 A117729 A073726 this_sequence A039226 A039271 A039163
Adjacent sequences: A008836 A008837 A008838 this_sequence A008840 A008841 A008842
nonn,base,fini
Olivier Gerard (olivier.gerard(AT)gmail.com)
Probably 58 is last term.
Search completed in 0.002 seconds
