OFFSET
1,1
PROG
(Perl) use ntheory ":all"; for (1..12) { $n=10**$_-1; $n-- while !is_lucky($n); say "$_ $n"; } # Dana Jacobsen, Mar 07 2023
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Robert G. Wilson v, Aug 22 2015
EXTENSIONS
a(11)-a(15) from Hiroaki Yamanouchi, Aug 24 2015
STATUS
approved