A067485 Powers of 7 with initial digit 7.
7, 79792266297612001, 7730993719707444524137094407, 749048330965186233494494102694564493649, 72574551534231909331741171093173785967490646405143
Offset: 1
Links
- Muniru A Asiru, Table of n, a(n) for n = 1..70
Programs
-
GAP
Filtered(List([0..100],n->7^n),i->ListOfDigits(i)[1]=7); # Muniru A Asiru, Oct 22 2018
-
Mathematica
Select[7^Range[80],First[IntegerDigits[#]]==7&] (* Harvey P. Dale, Apr 16 2013 *)
Extensions
More terms from Benoit Cloitre, Feb 22 2002