cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A239221 #10 Jan 17 2021 18:43:08
%S A239221 1,2,6,10,14,20,24,42,50,60,80,100,102,126,132,140,168,180,200,202,
%T A239221 204,210,222,234,240,246,252,270,324,342,348,350,354,360,390,396,402,
%U A239221 420,440,450,456,462,474,480,500,504,510,522,546,552,570,588,600,612
%N A239221 Numbers n such that n^3 is divisible by each of its nonzero digits.
%H A239221 Lars Blomberg, <a href="/A239221/b239221.txt">Table of n, a(n) for n = 1..10000</a>
%e A239221 42 is in the sequence because 42^3 = 74088 which is divisible by 4, 7 and 8.
%t A239221 Select[Range[700],Union[PowerMod[#,3,IntegerDigits[#^3]/.(0-> Nothing)]] == {0}&] (* _Harvey P. Dale_, Jan 17 2021 *)
%o A239221 (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
%o A239221 s=[]; for(n=1, 1000, if(isOK(n), s=concat(s, n))); s
%Y A239221 Cf. A239219, A239220, A239222.
%K A239221 nonn,base
%O A239221 1,2
%A A239221 _Colin Barker_, Mar 12 2014