A052424 - OEIS

%I #10 Jul 20 2024 14:34:50

%S 1,2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,

%T 89,97,101,103,107,109,113,121,127,131,137,139,143,149,151,157,163,

%U 167,169,173,179,181,187,191,193,197,199,209,211,221,223,227,229,233,239

%N Numbers k with no single-digit factors (apart from 1 and k).

%o (PARI) isok(n) = {d = divisors(n); for (i = 2, #d - 1,if (length(Str(d[i])) == 1, return (0));); return (1);} \\ _Michel Marcus_, Jul 27 2013

%Y Cf. A008364.

%K nonn,base

%O 1,2

%A _Henry Bottomley_, Mar 14 2000