login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual appeal: Please make a donation to keep the OEIS running! Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A294650 a(n) = denominator(A206369(n))/n. 2
1, 2, 3, 4, 5, 3, 7, 8, 9, 5, 11, 2, 13, 7, 15, 16, 17, 18, 19, 5, 7, 11, 23, 12, 25, 13, 27, 14, 29, 15, 31, 32, 33, 17, 35, 12, 37, 19, 13, 2, 41, 7, 43, 22, 45, 23, 47, 24, 49, 50, 51, 13, 53, 27, 11, 28, 19, 29, 59, 5, 61, 31, 3, 64, 65, 33, 67, 17, 69, 35 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Michel Marcus, Table of n, a(n) for n = 1..10000

László Tóth, A survey of the alternating sum-of-divisors function, arXiv:1111.4842 [math.NT], 2011-2014.

MATHEMATICA

(* b = A209369 *) b[n_] := n*DivisorSum[n, LiouvilleLambda[#]/# &];

a[n_] := Denominator[b[n]/n];

Array[a, 100] (* Jean-François Alcover, Dec 04 2017 *)

PROG

(PARI) rhope(p, e) = my(s=1); for(i=1, e, s=s*p + (-1)^i); s;

rho(n) = my(f=factor(n)); prod(i=1, #f~, rhope(f[i, 1], f[i, 2]));

a(n) = denominator(rho(n)/n);

CROSSREFS

Cf. A127724 (k-imperfect), A206369, A294649 (numerator).

Sequence in context: A071829 A229998 A067620 * A053585 A098988 A274346

Adjacent sequences:  A294647 A294648 A294649 * A294651 A294652 A294653

KEYWORD

nonn,frac,changed

AUTHOR

Michel Marcus, Nov 06 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified December 11 05:41 EST 2017. Contains 295868 sequences.