cp's OEIS Frontend

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.

A162946 Numbers n whose cubes are concatenations n^3 = x//y such that x is an anagram of y.

This page as a plain text file.
%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