A104420 Numbers n such that n, p[n], p[n]+n, p[n]-n and p[n]*n all are 9-less.

1, 2, 3, 4, 5, 11, 13, 15, 26, 27, 33, 36, 48, 51, 55, 60, 61, 65, 71, 83, 100, 101, 106, 112, 115, 116, 117, 123, 126, 151, 170, 173, 177, 200, 203, 206, 216, 221, 225, 230, 231, 233, 234, 235, 240, 241, 253, 255, 271, 275, 281, 283, 284, 286, 287

Offset: 1

Author

Zak Seidov, Mar 07 2005

Keywords

• nonn
• base

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

Crossrefs

Cf. A104419.

Programs

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 *)