|
|
|
|
2, 3, 12, 5, 60, 35, 280, 63, 2520, 77, 27720, 1287, 8008, 6435, 144144, 2431, 2450448, 46189, 3695120, 146965, 232792560, 96577, 1070845776, 1300075, 2974571600, 5014575, 11473347600, 215441, 332727080400, 31556720475, 486207248800, 20419054425
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
3,1
|
|
COMMENTS
|
A182972(n) and A182973(n) provide an enumeration of positive rationals < 1 arranged by increasing sum of numerator and denominator then by increasing numerator;
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
PROG
|
(Haskell)
import Data.Ratio ((%), denominator)
a245678 n = denominator $ sum
[num % den | num <- [1 .. div n 2], let den = n - num, gcd num den == 1]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,frac
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|