A239221 Numbers n such that n^3 is divisible by each of its nonzero digits.

1, 2, 6, 10, 14, 20, 24, 42, 50, 60, 80, 100, 102, 126, 132, 140, 168, 180, 200, 202, 204, 210, 222, 234, 240, 246, 252, 270, 324, 342, 348, 350, 354, 360, 390, 396, 402, 420, 440, 450, 456, 462, 474, 480, 500, 504, 510, 522, 546, 552, 570, 588, 600, 612

Offset: 1

Author

Colin Barker, Mar 12 2014

Keywords

• nonn
• base

Examples

			42 is in the sequence because 42^3 = 74088 which is divisible by 4, 7 and 8.
		

Links

• Lars Blomberg, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A239219, A239220, A239222.

Programs

Mathematica

Select[Range[700],Union[PowerMod[#,3,IntegerDigits[#^3]/.(0-> Nothing)]] == {0}&] (* Harvey P. Dale, Jan 17 2021 *)

PARI

isOK(n) = my(v=vecsort(digits(n^3), , 8)); for(i=1+(v[1]==0), #v, if(n^3%v[i], return(0))); 1
s=[]; for(n=1, 1000, if(isOK(n), s=concat(s, n))); s