OFFSET
1,1
COMMENTS
This sequence is the second step toward candidates for odd perfect numbers, A228058.
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
MATHEMATICA
nn = 1000; Union[Select[Flatten[Table[p*n^2, {p, Prime[Range[2, PrimePi[nn/4]]]}, {n, 3, Sqrt[nn/2], 2}]], # < nn &]]
PROG
(Haskell)
a228057 n = a228057_list !! (n-1)
a228057_list = filter odd a228056_list -- Reinhard Zumkeller, Aug 14 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Aug 13 2013
STATUS
approved