OFFSET
4,1
COMMENTS
2*a(n) is divisible by n-1. - Robert Israel, Mar 20 2017
MAPLE
for n from 4 to 100 do
searching:= true:
if n::even then delta:= n-1 else delta:= (n-1)/2 fi;
for d from 1 while searching do
for x from n^(d-1)+delta-1 to floor(n^d/3) by delta while searching do
if sort(convert(x, base, n)) = sort(convert(3*x, base, n)) then
searching:= false; A[n]:= x;
fi
od od od:
seq(A[i], i=4..100); # Robert Israel, Mar 20 2017
MATHEMATICA
Table[k = 1; While[! Equal @@ Map[Sort@ IntegerDigits[#, n] &, {k, 3 k}], k++]; k, {n, 4, 45}] (* Michael De Vlieger, Mar 20 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved