OFFSET
1,2
EXAMPLE
n=8 is OK because 8, p[8]=19, 19+8=27, 19-8=11, 19*8=152 all are 0-less; n=7 is not because p[7]-7=17-7=10 is not 0-less.
MATHEMATICA
id[x_]:=IntegerDigits[x]; pr[i_]:=Prime[i]; ra=Range[200]; A104419=Select[ra, Union[id[ # ], id[pr[ # ]], id[pr[ # ]+# ], id[pr[ # ]-# ], id[pr[ # ]*# ]][[1]]!=0&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 07 2005
STATUS
approved