OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..192 (terms < 10^12)
EXAMPLE
a(1) = 325 = 5^2 * 13.
a(2) = 2133 = 3^3 * 79.
a(3) = 10693 = 17^2 * 37.
a(4) = 16513 = 7^2 * 337.
a(5) = 19521 = 3^4 * 341.
a(6) = 51301 = 29^2 * 61.
a(7) = 159841 = 11^2 * 1321.
a(8) = 176661 = 3^5 * 727.
a(9) = 214273 = 47^2 * 97.
a(10) = 306181 = 53^2 * 109.
MAPLE
a034897 := [] : fd := fopen("b034897.txt", READ) : bf := fscanf(fd, "%d %d") : while nops(bf) <> 0 do a034897 := [op(a034897), op(2, bf) ] ; bf := fscanf(fd, "%d %d") ; od: a007592 := [] : for n in a034897 do m := (n-1)/( numtheory[sigma](n)-n-1) ; if m > 1 then a007592 := [op(a007592), n] ; fi ; od: isA100959 := proc(n) if numtheory[bigomega](n) <> 2 then true ; else false ; end: end: for n in a007592 do if isA100959(n) then printf("%d, ", n) ; fi ; od: # R. J. Mathar, Jan 08 2008
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post, Dec 22 2007
EXTENSIONS
More terms from R. J. Mathar, Jan 08 2008
STATUS
approved