OFFSET
1,1
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..57
MATHEMATICA
Select[8^Range[150], First[IntegerDigits[#]]==8&] (* Harvey P. Dale, Dec 26 2010 *)
PROG
(PARI) for(n=1, 200, if(floor((8^n)/10^floor(log((8^n))/log(10)))==8, print1(8^n, ", ")))
(GAP) Filtered(List([0..110], n->8^n), i->ListOfDigits(i)[1]=8); # Muniru A Asiru, Oct 22 2018
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 09 2002
EXTENSIONS
More terms from Benoit Cloitre, Feb 28 2002
STATUS
approved