OFFSET
1,2
COMMENTS
See A122618 for notation.
MAPLE
rebase := proc(n, b)
local dgs;
dgs := convert(n, base, 10) ;
add(op(i, dgs)*b^(i-1), i=1..nops(dgs)) ;
end proc:
A122621 := proc(n)
rebase(n, ithprime(n)) ;
end proc: # R. J. Mathar, May 06 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 21 2006
STATUS
approved