|
Search: id:A104428
|
|
|
| A104428 |
|
Numbers n such that n, p[n], p[n]+n, p[n]-n and p[n]*n all are 8-less. |
|
+0
8
|
|
| 1, 2, 5, 7, 9, 10, 11, 12, 14, 15, 17, 20, 21, 25, 26, 32, 33, 34, 40, 46, 50, 54, 55, 57, 63, 64, 70, 73, 74, 90, 95, 97, 99, 100, 104, 105, 110, 113, 114, 115, 116, 117, 119, 137, 156, 191, 192, 200, 203, 204, 213, 220, 225, 226, 227, 240, 244, 261, 262, 264, 265
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
From the first 3000 primes, only 356 are such that n, p[n], p[n]+n, p[n]-n and p[n]*n all are 8-less.
|
|
MATHEMATICA
|
id[x_]:=IntegerDigits[x]; pr[i_]:=Prime[i]; ra=Range[3000]; A104428=Select[ra, Position[Union[id[ # ], id[pr[ # ]], id[pr[ # ]+# ], id[pr[ # ]-# ], id[pr[ # ]*# ]], 8]=={}&]
|
|
CROSSREFS
|
Cf. A104419-A104428.
Adjacent sequences: A104425 A104426 A104427 this_sequence A104429 A104430 A104431
Sequence in context: A139481 A088757 A070985 this_sequence A050114 A047482 A062288
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Mar 07 2005
|
|
|
Search completed in 0.002 seconds
|
