login
A104419
Numbers n such that n, p[n], p[n]+n, p[n]-n and p[n]*n all are 0-less.
10
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, 52, 53, 57, 58, 59, 61, 62, 67, 69, 72, 77, 83, 84, 85, 91, 94, 99, 115, 116, 118, 125, 129, 133, 142, 146, 162, 166, 167, 168, 188, 192, 194, 195, 196
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
Sequence in context: A103302 A173288 A134677 * A343115 A092232 A060322
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 07 2005
STATUS
approved