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

Author

Colin Barker, Mar 12 2014

Keywords

• nonn
• base

Examples

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

Links

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

Crossrefs

Cf. A239220, A239221, A239222.

Programs

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 *)

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