1,2
No more terms through 10^13. [From Jon E. Schoenfield (jonscho(AT)hiwaay.net), Jul 03 2010]
Do[ If[ Union[ Join[ {1, 2, 3, 4}, IntegerDigits[n^3] ]] == {1, 2, 3, 4}, Print[n]], {n, 0, 10^8} ]
Sequence in context: A067690 A196181 A177182 * A123763 A018680 A107187
Adjacent sequences: A061806 A061807 A061808 * A061810 A061811 A061812
base,more,nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 23 2001