|
| |
|
|
A023143
|
|
Numbers n such that prime(n) == 1 (mod n), a(1) = 1.
|
|
21
| |
|
|
1, 2, 5, 6, 12, 14, 181, 6459, 6460, 6466, 100362, 251712, 251732, 637236, 10553504, 10553505, 10553547, 10553827, 10553851, 10553852, 69709709, 69709724, 69709728, 69709869, 69709961, 69709962, 179992920, 179992922, 179993170
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| 6 is in the sequence because the 6th prime, 13, is congruent to 1 mod 6.
|
|
|
MATHEMATICA
| Do[ If[ IntegerQ[ (Prime[ n ] - 1) / n ], Print[ n ] ], {n, 1, 10^8} ]
|
|
|
PROG
| (Haskell)
import Data.List (elemIndices)
a023143 n = a023143_list !! (n-1)
a023143_list =
1 : (map succ $ elemIndices 1 $ zipWith mod a000040_list [1..])
-- Reinhard Zumkeller, Jun 08 2011
|
|
|
CROSSREFS
| Cf. A048891, A045924, A052013, A023144, A023145, A023146, A023147, A023148, A023149, A023150, A023151, A023152.
Sequence in context: A198331 A057518 A153485 * A085206 A058601 A108365
Adjacent sequences: A023140 A023141 A023142 * A023144 A023145 A023146
|
|
|
KEYWORD
| nice,nonn,easy
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net), G. L. Honaker, Jr. (honak3r(AT)gmail.com)
|
|
|
EXTENSIONS
| More terms from Jud McCranie (JudMcCranie(AT)ugaalum.uga.edu)
|
| |
|
|
