OFFSET
1,1
MAPLE
A083466 := proc(n)
ndgs := convert(n, base, 10) ;
for k from 2 do
if k*n <> digcat2(n, n) then
kdgs := convert(k*n, base, 10) ;
mtch := true ;
for i from 1 to nops(ndgs) do
if op(i, ndgs) <> op(i, kdgs) then
mtch := false;
break;
end if;
end do:
if mtch then
return k*n ;
end if;
end if;
end do:
end proc: # R. J. Mathar, Aug 23 2014
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 02 2003
EXTENSIONS
More terms from R. J. Mathar, Aug 23 2014
STATUS
approved