The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A094260 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A094260

Sum of next n numbers/n if n divides the sum else n times the sum of next n numbers.
(history; published version)

#17 by Harvey P. Dale at Wed Apr 05 15:39:18 EDT 2023

STATUS

editing

approved

#16 by Harvey P. Dale at Wed Apr 05 15:39:16 EDT 2023

MATHEMATICA

fix[c_]:=If[Mod[Total[c], Length[c]]==0, Total[c]/Length[c], Length[c] Total[c]]; fix/@With[ {nn=50}, TakeList[ Range[(nn(nn+1))/2], Range[nn]]] (* Harvey P. Dale, Apr 05 2023 *)

STATUS

approved

editing

#15 by Peter Luschny at Tue Aug 23 06:23:49 EDT 2022

STATUS

proposed

approved

#14 by Michel Marcus at Tue Aug 23 04:47:46 EDT 2022

STATUS

editing

proposed

#13 by Michel Marcus at Tue Aug 23 04:47:37 EDT 2022

PROG

(PARI) a(n) = if (n%2, (n^2+1)/2, n^2*(n^2+1)/2); \\ Michel Marcus, Aug 23 2022

CROSSREFS

Cf. A000217, A037270, A001844.

STATUS

proposed

editing

#12 by Amiram Eldar at Tue Aug 23 03:29:27 EDT 2022

STATUS

editing

proposed

#11 by Amiram Eldar at Tue Aug 23 03:27:47 EDT 2022

FORMULA

Sum_{n>=1} 1/a(n) = 1 + Pi^2/12 - Pi*cosech(Pi). - Amiram Eldar, Aug 23 2022

STATUS

approved

editing

#10 by Harvey P. Dale at Fri May 01 16:15:45 EDT 2020

STATUS

editing

approved

#9 by Harvey P. Dale at Fri May 01 16:15:42 EDT 2020

MATHEMATICA

LinearRecurrence[{0, 5, 0, -10, 0, 10, 0, -5, 0, 1}, {1, 10, 5, 136, 13, 666, 25, 2080, 41, 5050}, 50] (* Harvey P. Dale, May 01 2020 *)

STATUS

approved

editing

#8 by Charles R Greathouse IV at Sat Jun 13 00:51:20 EDT 2015

LINKS

<a href="/index/Rec#order_10">Index to sequences with entries for linear recurrences with constant coefficients</a>, signature (0,5,0,-10,0,10,0,-5,0,1).

Discussion

Sat Jun 13

00:51

OEIS Server: https://oeis.org/edit/global/2439