OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A069582(n-1), n>1. [R. J. Mathar, May 03 2010]
EXAMPLE
MAPLE
rcd:= proc(n) local D, T, i;
D:= sort(convert(numtheory:-divisors(n), list));
T:= D[1];
for i from 2 to nops(D) do
T:= T + 10^(1+ilog10(T))*D[i]
od;
T
end proc:
select(t -> t=1 or isprime(t), map(rcd, [$1..1000])); # Robert Israel, Aug 12 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Apr 20 2010
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 30 2010
STATUS
approved