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

Comments

Intersection of A000578 and A002796.

Links

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

Formula

a(n) = A239221^(n)^3. - Michel Marcus, Mar 19 2014

Example

74088 is in the sequence because 74088 is divisible by 4, 7 and 8.

Mathematica

dedQ[n_]:=And@@Divisible[n, Select[IntegerDigits[n], #>0&]]; Select[ Range[ 400]^3, dedQ] (* Harvey P. Dale, Apr 25 2015 *)

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^3))); s

Crossrefs

Cf. A239219, A239220, A239221.

Cf. A000578, A002796.

Sequence in context: A224103 A072159 A016827 * A275023 A163289 A060459

Adjacent sequences: A239219 A239220 A239221 * A239223 A239224 A239225

Keyword

nonn,base

Author

Colin Barker, Mar 12 2014

Status

approved