%I #4 Mar 30 2012 17:26:11
%S 1,2,3,4,5,6,8,12,13,16,19,21,24,25,31,32,35,36,43,44,45,46,47,49,51,
%T 52,53,57,58,59,61,62,67,69,72,77,83,84,85,91,94,99,115,116,118,125,
%U 129,133,142,146,162,166,167,168,188,192,194,195,196
%N Numbers n such that n, p[n], p[n]+n, p[n]-n and p[n]*n all are 0-less.
%e 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.
%t 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&]
%K nonn,base
%O 1,2
%A _Zak Seidov_, Mar 07 2005
|