A133048-OEIS公司

A133048号

Powerback（n）：反转n的十进制展开式，去掉任何前导零，然后应用A133500个到结果数字。

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 2, 1, 4, 9, 16, 25, 36, 49, 64, 81, 3, 1, 8, 27, 64, 125, 216, 343, 512, 729, 4, 1, 16, 81, 256, 625, 1296, 2401, 4096, 6561, 5, 1, 32, 243, 1024, 3125, 7776, 16807, 32768, 59049, 6, 1, 64, 729, 4096, 15625, 46656, 117649

(列表;图表;参考;听;历史;文本;内部格式)

抵消

0,3

一个(A221221型（n））=A133500个(A221221型（n））=A222493型（n） ●●●●-莱因哈德·祖姆凯勒2013年5月27日

链接

N.J.A.斯隆，n=0..10000时的n，a（n）表

例子

例如240->（0）42->4^2=16；12345 -> 54321 -> 5^4*3^2*1 = 5625.

MAPLE公司

powerback：=proc（n）本地a，i，j，t1，t2，t3；

如果n=0，则返回（0）；fi；

t1:=换算（n，基数，10）；t2：=nops（t1）；

对于从1到t2的i，如果t1[i]>0，则执行，然后中断；fi；日期：

a： =1；t3：=t2-i+1；

对于从0到地板（t3/2）-1的j，做a:=a*t1[i+2*j]^t1[i=2*j+1]；日期：

如果t3 mod 2=1，则a：=a*t1[t2]；fi；

返回（a）；结束；

数学

ptm[n_]：=模块[{idn=IntegerDigits[IntegerReverse[n]]}，如果[EvenQ[Length[idn]]，时间@@（#[1]]^#[2]]&/@Partition[idn，2]），（时间@@；数组[ptm，70，0]（*需要Mathematica版本10或更高版本*）(*哈维·P·戴尔2020年7月5日*）

黄体脂酮素

（哈斯克尔）

a133048 0=0

a133048 n=列车$dropWhile（==0）$a031298_row n，其中

列车[]=1

列车[x]=x

列车（u:v:ws）=u^v*（列车ws）

--莱因哈德·祖姆凯勒2013年5月27日

交叉参考

囊性纤维变性。A131571号（固定点），A133059号和A133134号（记录）；A133500个（动力总成）。

囊性纤维变性。A133144号（轨迹长度），A031346号和A003001号（持久性）。

囊性纤维变性。A031298号.