A067486 Powers of 8 with initial digit 8.
8, 8589934592, 85070591730234615865843651857942052864, 842498333348457493583344221469363458551160763204392890034487820288, 8343699359066055009355553539724812947666814540455674882605631280555545803830627148527195652096
Offset: 1
Links
- Muniru A Asiru, Table of n, a(n) for n = 1..57
Programs
-
GAP
Filtered(List([0..110],n->8^n),i->ListOfDigits(i)[1]=8); # Muniru A Asiru, Oct 22 2018
-
Mathematica
Select[8^Range[150],First[IntegerDigits[#]]==8&] (* Harvey P. Dale, Dec 26 2010 *)
-
PARI
for(n=1,200, if(floor((8^n)/10^floor(log((8^n))/log(10)))==8,print1(8^n,",")))
Extensions
More terms from Benoit Cloitre, Feb 28 2002