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

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A183956 Number of strings of numbers x(i=1..5) in 0..n with sum i^2*x(i) equal to n*25. 1

%I #11 Jul 22 2022 12:13:54

%S 2,5,10,27,53,94,161,259,399,578,811,1120,1505,1985,2562,3267,4104,

%T 5092,6249,7595,9146,10923,12948,15245,17831,20735,23980,27592,31597,

%U 36020,40894,46252,52114,58520,65494,73076,81300,90195,99807,110163,121306

%N Number of strings of numbers x(i=1..5) in 0..n with sum i^2*x(i) equal to n*25.

%C Row 5 of A183953.

%H R. H. Hardin, <a href="/A183956/b183956.txt">Table of n, a(n) for n = 1..200</a>

%F Empirical: a(n)=a(n-1)+a(n-4)-a(n-5)+a(n-9)-a(n-10)-a(n-13)+a(n-14)+a(n-16)-a(n-17)-a(n-20)+a(n-21)-a(n-34)+a(n-35)+a(n-38)-a(n-39)-a(n-41)+a(n-42)+a(n-45)-a(n-46)+a(n-50)-a(n-51)-a(n-54)+a(n-55)

%e All solutions for n=3

%e ..0....1....1....0....1....2....3....3....0....0

%e ..0....2....2....0....2....0....1....1....0....0

%e ..2....2....0....0....1....0....3....2....3....1

%e ..2....3....1....0....2....3....1....0....3....1

%e ..1....0....2....3....1....1....1....2....0....2

%t r[n_, k_, s_] := r[n, k, s] = Which[s < 0, 0, n == 0, If[s == 0, 1, 0], True, Sum[r[n - 1, k, s - c*n^2], {c, 0, k}]];

%t T[n_, k_] := r[n, k, k*n^2];

%t a[n_] := T[5, n];

%t Table[a[n], {n, 1, 50}] (* _Jean-Fran├žois Alcover_, Jul 22 2022, after _R. J. Mathar_ in A183953 *)

%K nonn

%O 1,1

%A _R. H. Hardin_, Jan 08 2011

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 25 11:18 EDT 2024. Contains 373701 sequences. (Running on oeis4.)