OFFSET
1,1
COMMENTS
Cases with leading zeros in y, for example 1001^3 = 1003003001, are not admitted.
EXAMPLE
62^3 = 238328 and 238 is an anagram of 328, which contributes a(2)=62.
MAPLE
isA162946 := proc(n) local n3, x, y ; n3 := convert(n^3, base, 10) ; if nops(n3) mod 2 = 0 then if op(nops(n3)/2, n3) <> 0 then y := sort( [op(1..nops(n3)/2, n3)] ); x := sort( [op(nops(n3)/2+1..nops(n3), n3)] ); RETURN( x = y) ; else false; fi; else false; fi; end:
for n from 1 to 2000000 do if isA162946(n) then printf("%d, \n", n) ; fi; od: # R. J. Mathar, Jul 21 2009
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jul 18 2009
EXTENSIONS
Terms beyond 6006 added by R. J. Mathar, Jul 21 2009
STATUS
approved