OFFSET
1,2
COMMENTS
Permutation of positive integers?
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..1000
EXAMPLE
13 and 31 have 2 divisors each: (1, 13) and (1, 31);
198 and 819 have 12 divisors each: (1, 2, 3, 6, 9, 11, 18, 22, 33, 66, 99, 198) and (1, 3, 7, 9, 13, 21, 39, 63, 91, 117, 273, 819)
MAPLE
with(numtheory): P:=proc(q) local a, j, n; a:=[1]; for n from 2 to 100 do
for j from 1 to q do if numboccur(j, a)=0 then
if nops(divisors(a[nops(a)]*10^length(j)+j))=nops(divisors(j*10^length(a[nops(a)])+a[nops(a)]))
then a:=[op(a), j]; break; fi; fi; od; od; op(a); end: P(10^3);
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Paolo P. Lava, May 24 2026
STATUS
approved