1,2

Do[ If[ Union[ Join[ {1, 2, 3, 4}, IntegerDigits[n^3] ]] == {1, 2, 3, 4}, Print[n]], {n, 0, 10^8} ]

Sequence in context: A077411 A085016 A067690 this_sequence A123763 A018680 A107187

Adjacent sequences: A061806 A061807 A061808 this_sequence A061810 A061811 A061812

base,more,nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 23 2001