OFFSET
1,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
EXAMPLE
MATHEMATICA
Select[Map[FromDigits[Flatten[IntegerDigits[Divisors[#]]]] &, Range[1000]], !CompositeQ[#] &] (* Paolo Xausa, Nov 06 2025 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Apr 20 2010
EXTENSIONS
Extended and edited by Charles R Greathouse IV, Apr 27 2010
More terms from Paolo Xausa, Nov 06 2025
STATUS
approved
