|
| |
|
|
A084298
|
|
Integer quotients Pi[m.p[m]]/m;.
|
|
2
|
| |
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Table of n, a(n) for n=1..8.
|
|
|
FORMULA
|
a(n)=A000720[A084295(n).A084297(n)]/A084295(n)
|
|
|
MATHEMATICA
|
Do[s=PrimePi[n*Prime[n]]/n; If[IntegerQ[s], Print[s]], {n, 1, 100000}]
|
|
|
CROSSREFS
|
Cf. A000040, A000720, A084295, A084297.
Sequence in context: A072663 A050905 A067571 * A001772 A199206 A132861
Adjacent sequences: A084295 A084296 A084297 * A084299 A084300 A084301
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), May 27 2003
|
|
|
STATUS
|
approved
|
| |
|
|
