%I#6 2012年3月30日17:27:25

%S 3,49,73,88,9719884014792425527718799号

%N平衡三元基思数。

%C对于所检查的范围，只有与基数为3的基思数（A188195）相同的项是3和840。

%C如果一个正数的平衡三元数字之和等于或小于0，那么这些数字的递归很快就会变成一致的负数，并且所讨论的数字不是平衡三元中的基思数。

%e平衡三元数中的数字49是{1，-1，-1，1}。类五钠盐序列延续1、1、3、7、13、25、49，因此49是平衡三元中的基思数。

%t（*首次在A065363运行程序以定义balTernDigits*）keithFromListQ[n_Integer，digits_List]：=模块[{seq=数字，curr=数字[[-1]]，ord=长度[数字]}，而[curr<n，curr=Plus@@Take[seq，-ord]；附加到[seq，curr]]；返回[seq[[-1]]==n]]；选择[Range[3，19683]，Plus@@balTernDigits[#]>0&&keithFromListQ[#，balTern数字[#]]&]

%K nonn，基础

%O 1,1号机组

%A _Alonso del Arte，2011年3月29日