This site is supported by donations to The OEIS Foundation.

 Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS"). Other ways to donate

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A073723 Mod[Sigma[n],Pi[n]]=1 or Sigma[n]=kPi[n]+1. 0
 4, 9, 16, 64, 69, 218, 592, 808, 910, 1921, 1957, 2648, 2860, 7609, 13462, 14953, 16838, 20688, 27050, 44471, 80440, 91860, 122351, 131095, 154606, 166121, 171396, 226831, 257467, 318016, 614626, 726560 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS FORMULA A000203(n)=1+k.A000720(n) MATHEMATICA Do[s=Mod[DivisorSigma[1, n], PrimePi[n]]; If[s==1, Print[n]], {n, 1, 1000000}] CROSSREFS Cf. A000203, A000720, A072548, A073724. Sequence in context: A164840 A023110 A277699 * A161493 A030075 A296111 Adjacent sequences:  A073720 A073721 A073722 * A073724 A073725 A073726 KEYWORD nonn AUTHOR Labos Elemer, Aug 05 2002 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified December 14 07:15 EST 2018. Contains 318090 sequences. (Running on oeis4.)