OFFSET
1,1
COMMENTS
All terms are multiples of 3.
EXAMPLE
a(3) = 282 because there are exactly 3 positive integers m where m^2 - 282^2 is an anagram of 282^2 = 79524, namely 354^2 - 282^2 = 45792, 357^2 - 282^2 = 47925, and 393^2 - 282^2 = 74925, and 282 is the least number that works.
MAPLE
N:= 50: # for a(1) .. a(N)
V:= Vector(N): count:= 0:
f:= proc(n) local L, t, m, k, r;
L:= sort(convert(n^2, base, 10));
m:= 10^ilog10(n^2);
t:= 0;
for k from ceil(sqrt(n^2+m)) to floor(sqrt(n^2+10*m)) by 3 do
if sort(convert(k^2-n^2, base, 10)) = L then t:= t+1 fi
od;
t
end proc;
for n from 3 by 3 while count < N do
v:= f(n);
if v > 0 and v <= N and V[v] = 0 then count:= count+1; V[v]:= n fi
od:
convert(V, list);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert Israel, Mar 22 2026
STATUS
approved
