

A066367


The floor(p(n)/n)perfect numbers, where p(n) denotes the nth prime and fperfect numbers for an arithmetical function f are defined in A066218.


0




OFFSET

1,1


LINKS

Table of n, a(n) for n=1..5.
J. Pe, On a Generalization of Perfect Numbers, J. Rec. Math., 31(3) (20022003), 168172.


MATHEMATICA

f[x_] := Floor[Prime[x] / x]; Select[ Range[2, 10^5], 2 * f[ # ] == Apply[ Plus, Map[ f, Divisors[ # ] ] ] & ] There do not seem to be any more terms. There are no terms between 170 and 10^5.


CROSSREFS

Cf. A066218.
Sequence in context: A106714 A106819 A045968 * A098036 A127269 A071781
Adjacent sequences: A066364 A066365 A066366 * A066368 A066369 A066370


KEYWORD

nonn


AUTHOR

Joseph L. Pe, Dec 21 2001


STATUS

approved



