|
|
A104428
|
|
Numbers n such that n, p[n], p[n]+n, p[n]-n and p[n]*n all are 8-less.
|
|
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;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
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.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|