|
| |
|
|
A071170
|
|
n-th prime reduced modulo sigma[n].
|
|
0
| |
|
|
0, 0, 1, 0, 5, 1, 1, 4, 10, 11, 7, 9, 13, 19, 23, 22, 5, 22, 7, 29, 9, 7, 11, 29, 4, 17, 23, 51, 19, 41, 31, 5, 41, 31, 5, 60, 5, 43, 55, 83, 11, 85, 15, 25, 41, 55, 19, 99, 56, 43, 17, 43, 25, 11, 41, 23, 29, 1, 37, 113, 35, 5, 99, 57, 61, 29, 59, 85, 59, 61, 65, 164, 71, 31, 7
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
FORMULA
| a(n)=Mod[p(n), sigma(n)]=Mod[A000040(n), A000203(n)]
|
|
|
EXAMPLE
| n=25,p(25)=97, sigma(25)=31, Mod[97,31]=4=a[25]
|
|
|
MATHEMATICA
| Table[Mod[Prime[w], DivisorSigma[1, w]], {w, 1, 128}]
|
|
|
CROSSREFS
| Cf. A000040, A000203, A067697.
Sequence in context: A196612 A110635 A179773 * A108691 A010333 A131777
Adjacent sequences: A071167 A071168 A071169 * A071171 A071172 A071173
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), May 15 2002
|
| |
|
|
