OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..12000
FORMULA
MAPLE
with(numtheory):
r:= proc(n) option remember; local q;
`if`(n<10, n, irem(n, 10, 'q')*10^(length(n)-1) +r(q))
end:
a:= n-> `if`(r(n)=1, 1, max(factorset(r(n))[])):
seq(a(n), n=1..100);
MATHEMATICA
FactorInteger[FromDigits[Reverse[IntegerDigits[#]]]][[-1, 1]]&/@Range[80] (* Harvey P. Dale, Sep 14 2014 *)
PROG
(PARI) gpf(n) = if (n==1, 1, vecmax(factor(n)[, 1]));
a(n) = gpf(fromdigits(Vecrev(digits(n)))); \\ Michel Marcus, Feb 11 2020
CROSSREFS
KEYWORD
AUTHOR
Alois P. Heinz, Mar 21 2012
STATUS
approved