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,2

Links

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

Example

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A239219, A239220, A239222.

Sequence in context: A185548 A351553 A354715 * A039956 A197930 A192109

Adjacent sequences: A239218 A239219 A239220 * A239222 A239223 A239224

Keyword

nonn,base

Author

Colin Barker, Mar 12 2014

Status

approved