A239219 Numbers n such that n^3 is not divisible by any of its nonzero digits.

3, 7, 19, 29, 37, 43, 46, 59, 67, 77, 79, 86, 89, 127, 143, 149, 157, 163, 167, 169, 179, 187, 197, 199, 287, 299, 307, 313, 323, 337, 349, 353, 359, 367, 377, 379, 389, 397, 403, 419, 437, 443, 457, 460, 463, 587, 589, 593, 607, 613, 643, 647, 649, 653, 667

Offset

1,1

Links

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

Example

37 is in the sequence because 37^3 = 50653 which is not divisible by 3, 5 or 6.

Mathematica

n3ndQ[n_]:=Module[{nzd=DeleteCases[IntegerDigits[n^3], 0]}, NoneTrue[ n^3/nzd, IntegerQ]]; Select[Range[700], n3ndQ] (* Harvey P. Dale, Aug 20 2022 *)

Prog

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

Crossrefs

Cf. A239220, A239221, A239222.

Sequence in context: A171140 A186452 A016046 * A056725 A091738 A340752

Adjacent sequences: A239216 A239217 A239218 * A239220 A239221 A239222

Keyword

nonn,base

Author

Colin Barker, Mar 12 2014

Status

approved