登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A048177号 素数p=d_1 d_2。。。使得对于一些碱基b,p=Sum_{i=1..k}b^d_i。 2
101, 1033, 101111, 1010203, 11111101, 101001001, 111010111, 1110011101, 1110110011, 10000110011, 10001000011, 10001001011, 10001011001, 10010000111, 10010001011, 10010100101, 10011000011, 10100000011, 10100000111, 10100011001, 10100101001, 10100110001, 10101111011, 10110000101, 10110100001, 10111000001, 10111202111, 11000010011, 11000010101, 11010000101, 11011011001, 11011101011, 11100000101 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
马克斯·阿列克塞耶夫,n=1..180时的n,a(n)表
卡洛斯·里维拉,谜题32。找到这样的数对(1033,8),这样1033=8^1+8^0+8^3+8^3,主要难题与问题的联系。
例子
101=50^1+50^0+50^1
数学
isValid[n_]:=模块[{数字,b,totalSum,dcount},如果[!PrimeQ[n],返回[False]];数字=整数数字[n];dcount=数字计数[n];如果[Total[dcount[[{2,3,4,5,6,7,8,9}]]==0,dcount=DigitCount[n];如果[Mod[n-dcount[[10]],dcount[[1]]]==0,返回[True],返回[False]];];b=0;totalSum=0;而[totalSum<n,b++;totalSum=总计[b^位数];];如果[totalSum==n,返回[True],返回[False]];];对于[i=1,i<1000000,i++,如果[isValid[i],打印[i]];];(*Sam Handler(Sam_5_5_0(AT)yahoo.com),2006年8月17日*)
交叉参考
囊性纤维变性。A048178号.
关键词
基础,非n
作者
扩展
来自Sam Handler(Sam_5_5_0(AT)yahoo.com)的更多条款,2006年8月17日
条款a(10)之后马克斯·阿列克谢耶夫2023年3月18日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|转换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月28日08:22。包含371236个序列。(在oeis4上运行。)