|
Search: id:A104420
|
|
|
| A104420 |
|
Numbers n such that n, p[n], p[n]+n, p[n]-n and p[n]*n all are 9-less. |
|
+0
1
|
|
| 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
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
n, p[n], p[n]+n, p[n]-n and p[n]*n all are 0-less gives A104419.
|
|
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&]
|
|
CROSSREFS
|
Cf. A104419.
Sequence in context: A069908 A130640 A116068 this_sequence A052418 A051800 A121432
Adjacent sequences: A104417 A104418 A104419 this_sequence A104421 A104422 A104423
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Mar 07 2005
|
|
|
Search completed in 0.002 seconds
|
