|
|
A067485
|
|
Powers of 7 with initial digit 7.
|
|
12
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[7^Range[80], First[IntegerDigits[#]]==7&] (* Harvey P. Dale, Apr 16 2013 *)
|
|
PROG
|
(GAP) Filtered(List([0..100], n->7^n), i->ListOfDigits(i)[1]=7); # Muniru A Asiru, Oct 22 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|