OFFSET
1,2
COMMENTS
n, p[n], p[n]+n, p[n]-n and p[n]*n all are 0-less gives A104419.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
id[x_]:=IntegerDigits[x]; pr[i_]:=Prime[i]; ra=Range[300]; A104420=Select[ra, Last[Union[id[ # ], id[pr[ # ]], id[pr[ # ]+# ], id[pr[ # ]-# ], id[pr[ # ]*# ]]]!=9&]
nlsQ[n_]:=Module[{p=Prime[n]}, Max[DigitCount[{n, p, p+n, p-n, p*n}, 10, 9]] == 0]; Select[Range[300], nlsQ] (* Harvey P. Dale, Oct 14 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 07 2005
STATUS
approved