The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A344976 a(n) = A344878(n) - A011772(n). 7
 0, 0, 0, 0, 0, 3, 0, 0, 0, 8, 0, 6, 0, -1, -1, 0, 0, 16, 0, 13, 0, 19, 0, 15, 0, 0, 0, 35, 0, -3, 0, 0, -1, 32, -2, 48, 0, -1, 0, 45, 0, -14, 0, 38, -1, 43, 0, 30, 0, 0, -1, 45, 0, 51, 10, -18, 0, 56, 0, 13, 0, -1, -3, 0, -13, 19, 0, 96, -1, -8, 0, 57, 0, 0, 0, 70, 9, 0, 0, 60, 0, 80, 0, -6, -18, -1, -1, -2, 0, -11, -1, 131 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,6 LINKS Antti Karttunen, Table of n, a(n) for n = 1..16384 Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537 FORMULA a(n) = A344878(n) - A011772(n). a(n) <= A344876(n). MATHEMATICA A011772[n_] := Module[{m = 1}, While[Not[IntegerQ[m(m+1)/(2n)]], m++]; m]; A344878[n_] := If[n == 1, 1, Module[{p, e}, LCM @@ Table[{p, e} = pe; (p^(e + If[p == 2, 1, 0])) - 1, {pe, FactorInteger[n]}]]]; a[n_] := A344878[n] - A011772[n]; Array[a, 100] (* Jean-François Alcover, Jun 12 2021 *) PROG (PARI) A011772(n) = { if(n==1, return(1)); my(f=factor(if(n%2, n, 2*n)), step=vecmax(vector(#f~, i, f[i, 1]^f[i, 2]))); forstep(m=step, 2*n, step, if(m*(m-1)/2%n==0, return(m-1)); if(m*(m+1)/2%n==0, return(m))); }; \\ From A011772 A344878(n) = if(1==n, n, my(f=factor(n)~); lcm(vector(#f, i, (f[1, i]^(f[2, i]+(2==f[1, i]))-1)))); A344976(n) = (A344878(n)-A011772(n)); CROSSREFS Cf. A011772, A344876, A344878, A344977 (positions of negative terms), A344978, A344979 (positions of zeros), A344885 (and their characteristic function). Sequence in context: A115869 A115859 A241663 * A344876 A129170 A342590 Adjacent sequences:  A344973 A344974 A344975 * A344977 A344978 A344979 KEYWORD sign AUTHOR Antti Karttunen, Jun 04 2021 STATUS approved

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

Last modified July 7 12:08 EDT 2022. Contains 355148 sequences. (Running on oeis4.)