OFFSET
0,3
LINKS
EXAMPLE
MATHEMATICA
a[n_] := Module[{k = n, m = 2, r, s = {}}, While[{k, r} = QuotientRemainder[k, m]; k != 0|| r != 0, AppendTo[s, r]; m++]; FromDigits[Reverse[s], MixedRadix[Reverse@ Prime@ Range@ Length[s]]]]; Array[a, 100, 0] (* Amiram Eldar, Feb 07 2024 *)
PROG
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Apr 01 2022
STATUS
approved