OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..2500
MAPLE
rev:= proc(n) local L, i; L:= convert(n, base, 10); add(L[-i]*10^(i-1), i=1..nops(L)) end proc:
sort(map(rev, [seq(8^i, i=0 .. floor(log[8](10^20)))])); # Robert Israel, Mar 05 2025
MATHEMATICA
IntegerReverse[8^Range[0, 20]]//Sort (* Harvey P. Dale, Jul 19 2024 *)
PROG
(PARI) A134114_first(n, p=8, L=log(10)/log(p))=vecsort([A004086(p^k)|k<-[0..n\/L*L\1]])[1..n] \\ M. F. Hasler, Mar 27 2026
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jonathan Vos Post, Oct 08 2007
STATUS
approved
