|
| |
|
|
A078931
|
|
Numbers n such that n divides p(n)+1 or p(n)-1 where p(n) is the n-th prime.
|
|
0
| |
|
|
1, 2, 3, 4, 5, 6, 10, 12, 14, 70, 72, 181, 182, 440, 1053, 6458, 6459, 6460, 6461, 6466, 6471, 40087, 40089
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| A023143 union A045924
|
|
|
EXAMPLE
| 181 is in the sequence because the 181st prime is 1087, and 1086 is divisible by 181 (although 1088 is not so divisible).
|
|
|
MATHEMATICA
| ndpQ[n_]:=Module[{p=Prime[n]}, Divisible[p-1, n]||Divisible[p+1, n]]; Select[Range[100000], ndpQ] (* From Harvey P. Dale, Apr 03 2011 *)
|
|
|
CROSSREFS
| Sequence in context: A015853 A018642 A116998 * A018779 A018382 A018266
Adjacent sequences: A078928 A078929 A078930 * A078932 A078933 A078934
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Jan 12 2003
|
|
|
EXTENSIONS
| Corrected and example added by Harvey P. Dale, Apr 03 2011.
|
| |
|
|
