|
Search: id:A073325
|
|
|
| A073325 |
|
Least k such that prime(k) == n (mod k). |
|
+0
2
|
|
| 2, 3, 4, 75, 9, 79, 18, 17, 10, 19, 20, 91, 22, 23, 41, 83, 24, 16049, 43, 2711, 94, 25, 26, 95, 198, 449, 452, 99, 50, 451, 48, 453, 1072, 447, 54, 16043, 55, 2719, 56, 459, 57, 101, 472, 100371, 62, 105, 102, 103, 104, 467, 110, 107, 65, 109, 63, 115, 118, 117
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
a(n)=Min{x; Mod[A000040(x), x]=n}=Min{x; A04648[x]=n}
|
|
EXAMPLE
|
a(4) = 75 as prime(75) = 379 == 4 (mod 75).
a(44) = 100371 since prime(100371) = 1304867 == 44 (mod 100371) and prime(k) <> 44 (mod k) for k < 100371.
|
|
MATHEMATICA
|
f[x_] := Mod[Prime[x], x] t=Table[0, {256}]; Do[s=f[n]; If[s<257&&t[[s]]==0, t[[s]]=n], {n, 1, 100000}]; t
|
|
PROGRAM
|
(PARI) stop=110000; for(n=0, 59, k=1; while(k<stop&((prime(k)%k)!=n), k++); print1(if(k<stop, k, 0), ", "))
|
|
CROSSREFS
|
Cf. A000040, A002808, A004648, A073324, A073326.
Sequence in context: A076519 A066776 A115901 this_sequence A037395 A009496 A008405
Adjacent sequences: A073322 A073323 A073324 this_sequence A073326 A073327 A073328
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 30 2002
|
|
|
Search completed in 0.002 seconds
|
