This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A162946 #5 Mar 02 2019 23:23:11 %S A162946 11,62,303,1461,2002,5005,6006,23784,25978,30103,37755,40004,100010, %T A162946 101101,107256,109909,110011,112363,120012,120741,126389,129785, %U A162946 130013,140014,166145,171265,184332,211989,468388,501833,525541,557815,578089,610138,616912,617591 %N A162946 Numbers n whose cubes are concatenations n^3 = x//y such that x is an anagram of y. %C A162946 Cases with leading zeros in y, for example 1001^3 = 1003003001, are not admitted. %e A162946 62^3 = 238328 and 238 is an anagram of 328, which contributes a(2)=62. %p A162946 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: %p A162946 for n from 1 to 2000000 do if isA162946(n) then printf("%d,\n",n) ; fi; od: # _R. J. Mathar_, Jul 21 2009 %Y A162946 Cf. A052052. - _R. J. Mathar_, Jul 21 2009 %K A162946 nonn,base %O A162946 1,1 %A A162946 _Claudio Meller_, Jul 18 2009 %E A162946 Terms beyond 6006 added by _R. J. Mathar_, Jul 21 2009