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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A283509 Remainder when sum of first n terms of the Hofstadter Q-sequence is divided by 2*n. 2
 1, 2, 4, 7, 0, 2, 5, 8, 12, 16, 20, 2, 6, 10, 16, 21, 27, 34, 3, 9, 15, 21, 27, 37, 45, 1, 9, 17, 25, 33, 45, 54, 63, 7, 18, 27, 37, 49, 60, 72, 3, 14, 26, 38, 50, 62, 74, 94, 8, 19, 35, 49, 61, 77, 93, 107, 11, 25, 41, 57, 73, 89, 113, 2, 15, 35, 52, 67, 88, 110, 129, 5, 25, 44, 64, 83, 105, 125, 146, 9, 31, 52, 73, 97 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS Sequence represents c(n, 2) where c(n, i) = (Sum_{k = 1..n} A005185(k)) mod (n*i). See also A283025 and corresponding illustration in Links section. LINKS Altug Alkan, Table of n, a(n) for n = 1..10000 Altug Alkan, Illustration Of Residue Classes Modulo 8 EXAMPLE a(4) = 7 since Sum_{k = 1..4} A005185(k) = 1 + 1 + 2 + 3 = 7 and remainder when 7 is divided by 8 is 7. MAPLE A005185:= proc(n) option remember; procname(n-procname(n-1)) +procname(n-procname(n-2)) end proc: A005185(1):= 1: A005185(2):= 1: L:= ListTools[PartialSums](map(A005185, [\$1..1000])): seq(L[i] mod (2*i), i=1..1000); # after Robert Israel at A283025 MATHEMATICA a[1] = a[2] = 1; a[n_] := a[n] = a[n - a[n - 1]] + a[n - a[n - 2]]; Table[Mod[Total@ Array[a, n], 2 n], {n, 84}] (* Michael De Vlieger, Mar 13 2017 *) PROG (PARI) a=vector(1000); a[1]=a[2]=1; for(n=3, #a, a[n]=a[n-a[n-1]]+a[n-a[n-2]]); vector(#a, n, sum(k=1, n, a[k]) % (2*n)) CROSSREFS Cf. A005185, A076268, A283025. Sequence in context: A170807 A221840 A111512 * A111768 A011177 A335534 Adjacent sequences: A283506 A283507 A283508 * A283510 A283511 A283512 KEYWORD nonn AUTHOR Altug Alkan, Mar 09 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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 25 00:32 EST 2024. Contains 370308 sequences. (Running on oeis4.)