OFFSET
1,2
COMMENTS
From the first 3000 primes, only 179 are terms.
From the first 3000 integers, only 343 are terms.
MATHEMATICA
id[x_]:=IntegerDigits[x]; pr[i_]:=Prime[i]; ra=Range[3000]; A104426=Select[ra, Position[Union[id[ # ], id[pr[ # ]], id[pr[ # ]+# ], id[pr[ # ]-# ], id[pr[ # ]*# ]], 6]=={}&]
slQ[n_]:=Module[{p=Prime[n]}, Union[DigitCount[#, 10, 6]&/@{n, p, p+n, p-n, p*n}] == {0}]; Select[Range[250], slQ] (* Harvey P. Dale, Feb 01 2018 *)
PROG
(PARI) has(n)=!setsearch(Set(digits(n)), 6)
is(n, p=prime(n))=has(n) && has(p) && has(p+n) && has(p-n) && has(p*n) \\ Charles R Greathouse IV, Feb 01 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Mar 07 2005
EXTENSIONS
Definition modified (at the suggestion of N. J. A. Sloane) by Harvey P. Dale, Feb 10 2018
STATUS
approved