OFFSET
0,1
LINKS
FORMULA
MATHEMATICA
With[{b = MixedRadix[Reverse@ Prime@ Range@ 12]}, Table[Block[{p = 2}, While[Mod[#, p] == 0, p = NextPrime@ p]; p] &@ Apply[Times, Power @@@ # &@ Transpose@ {Prime@ Range@ Length@ #, Reverse@ #}] &@ IntegerDigits[n, b], {n, 0, 105}]] (* Michael De Vlieger, Oct 22 2019 *)
PROG
(PARI) A326810(n) = { my(i=1, p=2); while(n && (n%p), n = n\p; p = nextprime(1+p)); (p); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 19 2019
STATUS
approved