登录

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

 

提示 （来自的问候整数序列在线百科全书!) A112010号 具有偶数长度的数字n，使得φ（n）=φ（d_1^d_2*d_3^d_4*…*d_（k-1）^d_k），其中d_1d_2。。。dk是n的十进制展开式。 三 24, 1064, 2592, 6520, 106434, 145166, 237165, 262535, 372780, 491520, 531765, 546410, 566250, 636352, 12716544, 12806910, 13666320, 15116832, 15408692, 17473715, 21645616, 23473515, 23726640, 23728264, 26722436, 26757024, 27933192, 30537364, 30869280, 32118177, 33452293, 34114338, 39602752, 42262365, 44373490 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1,1 链接 n，a（n）的表，n=1..35。 例子 33452293在序列中，因为phi（33452293=phi（3^3*4^5*2^2*9^3）。 数学 Do[h=整数位数[n]；k=长度【h】；如果[EvenQ[k]&&选择[Range[k/2]，h[[2#-1]]==0&]={}&&EulerPhi[n]==EulerPhi[Product[h[[2j-1]]^h[[2j]]，{j，k/2}]，打印[n]]，}n，31000000}] epQ[n_]：=模块[{idn=IntegerDigits[n]}，EvenQ[Length[idn]]&&FreeQ[Take[idn，{1，-1，2}]，0]&&EulerPhi[n]==EulerPhi[Times@@（#[1]]^#[2]]&/@Partition[idn、2]）]]；加入[Select[Range[10，99]，epQ]，Select[Range[1000，9999]，epQ，Select[Range[100000，999999]，epQ]，选择[Range[10000000，44999999](*哈维·P·戴尔2016年2月24日*） 交叉参考 囊性纤维变性。A110084型,A112009号,A112011号. 上下文中的序列：A344095型 A272690型 A112011号*A278650型 A046906号 A130552型 相邻序列：A112007号 A112008号 A112009号*A112011号 A112012号 A112013号 关键词 基础,非n 作者 法里德·菲鲁兹巴赫特2005年8月26日 扩展 更多术语来自马克斯·阿列克塞耶夫，2012年10月16日 状态 经核准的

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

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

上次修改时间：美国东部夏令时2024年4月30日20:43。包含372141个序列。（在oeis4上运行。）