|
Search: id:A104421
|
|
|
| A104421 |
|
Numbers n such that n, p[n], p[n]+n, p[n]-n and p[n]*n all are 1-less. |
|
+0
1
|
|
| 74, 75, 80, 86, 87, 95, 96, 350, 352, 354, 355, 357, 360, 364, 376, 536, 557, 564, 583, 584, 590, 592, 593, 594, 596, 599, 600, 623, 635, 639, 656, 659, 660, 665, 667, 674, 677, 678, 699, 700, 703, 706, 707, 724, 728, 734, 744, 750, 759, 762, 765, 766, 770
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
From the first 3000 primes, only 128 are such that n, p[n], p[n]+n, p[n]-n and p[n]*n all are 1-less.
|
|
MATHEMATICA
|
id[x_]:=IntegerDigits[x]; pr[i_]:=Prime[i]; ra=Range[3000]; A104421=Select[ra, Position[Union[id[ # ], id[pr[ # ]], id[pr[ # ]+# ], id[pr[ # ]-# ], id[pr[ # ]*# ]], 1]=={}&]
|
|
CROSSREFS
|
Cf. A104419-A104428.
Sequence in context: A000319 A033394 A114969 this_sequence A136948 A137139 A095569
Adjacent sequences: A104418 A104419 A104420 this_sequence A104422 A104423 A104424
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
Zak Seidov (zakseidov(AT)yahoo.com), Mar 07 2005
|
|
|
Search completed in 0.005 seconds
|
