login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Image of 1,2,3,4,... under the map Q defined in A095172.
1

%I #13 Aug 29 2024 15:56:50

%S 1,3,5,8,12,17,23,29,37,47,57,68,81,96,112,129,148,170,194,218,245,

%T 275,306,340,376,415,458,502,549,601,656,714,776,841,910,983,1058,

%U 1139,1226,1315,1410,1511,1616,1727,1842,1963,2092,2225,2363,2509,2661,2818,2983

%N Image of 1,2,3,4,... under the map Q defined in A095172.

%o (PARI) {d=53;A=vector(d,j,j);m=1;while(d>A[m],B=A;for(k=1,d,if(k>A[m],B[k]=A[k]+A[k-A[m]]));A=B;m++);for(j=1,d,print1(A[j],","))} /* _Klaus Brockhaus_, Jun 21 2004 */

%Y Cf. A095172.

%K nonn,nice,easy

%O 1,2

%A _N. J. A. Sloane_, based on correspondence from _Leroy Quet_, Jun 11 2004

%E More terms from _Klaus Brockhaus_, Jun 21 2004