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!)
A341151 a(n) is the sum of the n-th row of the A341150 triangle. 1

%I

%S 1,1,2,2,3,3,4,2,6,5,4,4,6,5,8,6,6,6,8,4,11,8,6,8,12,6,10,8,8,10,10,6,

%T 14,13,10,12,13,8,12,10,10,11,12,10,21,10,10,6,19,11,20,18,6,21,18,8,

%U 19,14,10,12,18,12,16,14,19,22,18,10,20,18,16,14,16

%N a(n) is the sum of the n-th row of the A341150 triangle.

%H Niccolò Castronuovo, <a href="https://arxiv.org/abs/2102.02739">On the number of fixed points of the map gamma</a>, arXiv:2102.02739 [math.NT], 2021.

%o (PARI) incr(m, nn, vincr) = if ((vincr[1]<nn) && (vincr[2]<nn), m[vincr[1]+1, vincr[2]+1]++); m;

%o tabl(nn) = {my(m = matrix(nn, nn), istep=0, vstep, nvstep); for (istep=0, nn, if (istep==0, vstep = [[0,0]], vstep = nvstep); nvstep = List(); for (i=1, #vstep, my(step=vstep[i]); m = incr(m, nn, step); if (istep, listput(nvstep, [step[1]+step[2], step[2]])); listput(nvstep, [3*step[1]+1-2*step[2], 2*step[1]+1-step[2]]););); m;} \\ A341150

%o lista(nn) = my(m=tabl(nn)); vector(nn, i, vecsum(vector(i, k, m[i,k])));

%Y Cf. A341150.

%K nonn

%O 0,3

%A _Michel Marcus_, Feb 06 2021

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 September 29 06:47 EDT 2022. Contains 357082 sequences. (Running on oeis4.)