A033548-OEIS公司

A033548号

Honaker素数：素数P（k），使得P（k）的位数和等于k的位数和。

131, 263, 457, 1039, 1049, 1091, 1301, 1361, 1433, 1571, 1913, 1933, 2141, 2221, 2273, 2441, 2591, 2663, 2707, 2719, 2729, 2803, 3067, 3137, 3229, 3433, 3559, 3631, 4091, 4153, 4357, 4397, 4703, 4723, 4903, 5009, 5507, 5701, 5711, 5741, 5801, 5843

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

抵消

1,1

A090431号(A049084号（a（n））=0。

参考文献

提议人G.L.Honaker，Jr.小。

链接

查尔斯·格里塔斯四世，n=1..10000时的n，a（n）表（T.D.Noe的前1000个术语）

配方奶粉

a（n）=A000040型(A033549号（n））-R.J.马塔尔2021年7月7日

例子

131是第32个素数，两者的位数之和是5。

MAPLE公司

读取（“转换”）：

isA033548:=进程（n）

如果isprime（n）和digsum（n）=digsum（numtheory[pi]（n）），则

真；

其他的

假；

结束条件：；

结束进程：

A033548号：=进程（n）

局部p，k；

如果n=1，则

131;

其他的

p:=下一素数（procname（n-1））；

虽然是真的

如果是A033548（p），则

返回p；

结束条件：；

p:=下一素数（p）；

结束do：

结束条件：；

结束进程：

序列(A033548美元（n），n=1..40）#R.J.马塔尔2021年7月7日

数学

素数[Select[Range[2000]，Apply[Plus，IntegerDigits[#]]==Apply[+，Integer Digits[Prime[#]]&]](*桑蒂·斯帕达罗2001年10月14日*）

选择[Prime@Range@5927，Plus@@IntegerDigits@#==Plus@@integerDiges@PrimePi@#&](*罗伯特·威尔逊v，2009年6月7日*）

nn=800；Transpose[Select[Thread[{Prime[Range[nn]]，Range[nn]}]，Total[IntegerDigits[First[#]]]==总[Integer Digits[Last[#]]和]][1](*哈维·P·戴尔2011年6月13日*）

黄体脂酮素

（哈斯克尔）

a033548 n=a033548_列表！！（n-1）

a033548_list=过滤器（（==0）。a090431中。a049084）a000040_列表

--莱因哈德·祖姆凯勒2014年3月16日

（PARI）是（n）=素数\\查尔斯·格里特豪斯四世2015年6月18日

（Python）

从sympy.theory.factor导入数字

从sympy导入primepi，primerange

print（[n代表素数范围（15901）中的n，如果（sum（digits（n）[1:]）==sum（degits（digities（n））[1:]]）#印地瑞尼Ghosh2017年6月27日之后查尔斯·格里特豪斯四世

交叉参考

囊性纤维变性。A007605号,A033549美元,A049084号,A072439号,A090431号.

上下文中的序列：142616英镑 A207527型 A132249号*A117477号 A089316型 A242846个

相邻序列：A033545号 A033546号 A033547号*A033549号 A033550型 A033551号

关键字

非n,基础,美好的

作者

计算单位：贾德·麦克拉尼

扩展

更多术语来自罗伯特·威尔逊v，2009年6月7日

状态

经核准的