A067483 Powers of 5 with initial digit 5.
5, 59604644775390625, 582076609134674072265625, 5684341886080801486968994140625, 55511151231257827021181583404541015625, 542101086242752217003726400434970855712890625
Offset: 1
Links
- Muniru A Asiru, Table of n, a(n) for n = 1..114
Crossrefs
Programs
-
GAP
k:=5;; Filtered(List([0..100],n->k^n),i->ListOfDigits(i)[1]=k); # Muniru A Asiru, Oct 06 2018
-
Mathematica
Select[5^Range[70],First[IntegerDigits[#]]==5&] (* Harvey P. Dale, Apr 01 2011 *)
-
PARI
lista(nn) = {for (n=1, nn, if (digits(p=5^n)[1] == 5, print1(p, ", ")););} \\ Michel Marcus, Oct 14 2018
Extensions
Edited by Frank Ellermann, Feb 11 2002
One more term from Harvey P. Dale, Apr 01 2011
Comments