OFFSET
1,1
COMMENTS
See A122618 for notation.
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..10000
MAPLE
a:= n-> (b-> (l-> add(l[i]*b^(i-1), i=1..nops(l)))(
convert(b, base, 10)))(ithprime(n)):
seq(a(n), n=1..50); # Alois P. Heinz, Aug 31 2021
MATHEMATICA
FromDigits[IntegerDigits[#], #]&/@Prime[Range[50]] (* Harvey P. Dale, Aug 31 2021 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Sep 21 2006
STATUS
approved