zsh-users-26601 playpen
zsh-users-26601 playpen
In[]:=
maxlevel=22
Out[]=
22
Ray's numerators
In[]:=
Table[Sum[level^(term-1)*(level-1)^(level-term),{term,level}],{level,maxlevel}]
0
0
Out[]=
{Indeterminate,3,19,175,2101,31031,543607,11012415,253202761,6513215599,185311670611,5777672071535,195881901213181,7174630439858727,282325794823047151,11878335717996660991,532092356706983938321,25283323623228812584415,1270184310304975912766347,67267626542454041806644399,3745435018385982521381124421,218733549978113924447643110743}
Brett's numerators
In[]:=
Table[RSolveValue[{numerator[term]==numerator[term-1]*(level-1)+level^term,numerator[0]==1},numerator[level-1],term],{level,maxlevel}]
Out[]=
{1,3,19,175,2101,31031,543607,11012415,253202761,6513215599,185311670611,5777672071535,195881901213181,7174630439858727,282325794823047151,11878335717996660991,532092356706983938321,25283323623228812584415,1270184310304975912766347,67267626542454041806644399,3745435018385982521381124421,218733549978113924447643110743}
Denominators
In[]:=
Table[level^level,{level,maxlevel}]
Out[]=
{1,4,27,256,3125,46656,823543,16777216,387420489,10000000000,285311670611,8916100448256,302875106592253,11112006825558016,437893890380859375,18446744073709551616,827240261886336764177,39346408075296537575424,1978419655660313589123979,104857600000000000000000000,5842587018385982521381124421,341427877364219557396646723584}