1,2
n，a（n）n＝1…5的表。
0＝0×（0＋1）。12＝（1＋2）*（1＋2＋1）。42＝（4＋2）*（4＋2＋1）。90＝（9＋0）*（9＋0＋1）。156＝（1＋5＋6）*（1＋5＋6＋1）
FQ[n]：=块[{a= Plus @ @整数格子} n}，a*（a+1）＝n=；选择[范围[0, 1000 ]，fq]（*）Robert G. Wilson五世2月24日2017＊）
（VBA）
子运算（）
表（“结果”）选择
范围（“A1”）
i＝1到10000000
求和＝0
k＝1到Len（i）
求和＝MID（I，K，1）
下一个
Res＝和*（求和+ 1）
如果RES＝I
ActudieCel.Value= I
ActudieCel.Office（1, 0）.选择
结束如果
结束子
语境中的顺序：A241854 A085998 A70700*A045 945 A210206 A000 5901
相邻序列：A262690 A262691 A262692*A262692 A262695 A262696
布雷夫，基地，菲尼，全部，诺恩
谢尔梅耶阿列克塞2月24日2017
经核准的
