A239222 Cubes that are divisible by each of their nonzero digits.
1, 8, 216, 1000, 2744, 8000, 13824, 74088, 125000, 216000, 512000, 1000000, 1061208, 2000376, 2299968, 2744000, 4741632, 5832000, 8000000, 8242408, 8489664, 9261000, 10941048, 12812904, 13824000, 14886936, 16003008, 19683000, 34012224, 40001688, 42144192
Offset: 1
Examples
74088 is in the sequence because 74088 is divisible by 4, 7 and 8.
Links
- Lars Blomberg, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
dedQ[n_]:=And@@Divisible[n,Select[IntegerDigits[n],#>0&]]; Select[ Range[ 400]^3, dedQ] (* Harvey P. Dale, Apr 25 2015 *)
-
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^3))); s
Formula
a(n) = A239221^(n)^3. - Michel Marcus, Mar 19 2014
Comments