A227073 - OEIS

%I #8 Jul 31 2013 01:45:38

%S 1,12,21,22,123,132,213,231,312,321,333,1224,1234,1242,1243,1324,1342,

%T 1422,1423,1432,2124,2134,2142,2143,2214,2241,2244,2314,2341,2412,

%U 2413,2421,2424,2431,2442,3124,3142,3214,3241,3412,3421,4122,4123,4132,4212,4213

%N Positive numbers without the digit 0 such that sum of cubes of the digits equals the square of the sum of the digits.

%C There are a total of 320880755 numbers in this sequence.

%H T. D. Noe, <a href="/A227073/b227073.txt">Table of n, a(n) for n = 1..2987</a> (numbers less than 10^6)

%t (* let tx[[i]] be numbers computed in A227072 *) Sort[Flatten[

%t   Table[FromDigits /@ Permutations[IntegerDigits[tx[[n]]]], {n, 14}]]]

%Y Cf. A225567 (primes in a related sequence), A227072.

%K nonn,base,fini

%O 1,2

%A _T. D. Noe_, Jul 27 2013