%I#16 2023年1月2日12:30:47

%S 787808979181179136517762574259829673168376247585775，

%电话：5796780078757917821789709180957611790136501366213875，

%电话：13896143911776018564188581981220097257402593525974259802757328776

%N数字N=concat（a，b），使得φ（N）=φ（a）*φ（b），其中φ=A000010。

%C Concat（a，b）表示a和b的十进制级联，即a*10^floor（log_10（b）+1）+b，因为我们不允许在b中使用前导零。然而，允许在b中使用前导零不会给出低于10^6的任何附加项。

%C这个序列是由_Farideh Firoozbakht和David Wilson在2008年10月27日和11月6日的SeqFan邮件列表中建议的（参见链接）。

%C·法拉第·菲鲁兹巴赫特证明了如果n在这个序列中，那么n*10也在这个序列里。因此，我们可以将这个序列的“原始”项称为那些不是10的倍数的项。

%C一种可能的变体是允许将n分解为任意数量的子字符串。如果需要将n分解为其每个数字，即用φ替换sigma的A098771的模拟，那么78似乎是唯一具有此属性的数字。

%H Paolo P.Lava，n表，n=1..500的a（n）</a>

%H David Wilson，<a href=“http://list.seqfan.eu/oldermail/seqfan/2008-11月/00064.html“>78的良好（十进制）属性，Seqfan邮件列表（2008年11月）。

%p with（numtheory）：p:=进程（q）局部s，t，k，n；对于从1到q do的n

%p表示k从1到ilog10（n）dos：=n mod 10^k；t： =trunc（n/10^k）；

%p如果s*t>0，那么如果phi（s）*phi（t）=phi（n）

%p然后打印（n）；断裂；fi；fi；od；od；结束：P（10^5）；#_Paolo P.Lava，2015年1月27日

%o（PARI）是_A147619（n）={local（p=1，s=eulerphi（n））；而（n>p*=10，n%p*10<p&next；s==euleerphi（n\p）*eulerpchi（n%p）&return（1））}

%o表示（n=1,10^5，is_147619（n）&打印1（n“，”））

%Y参考A000010、A147616（sigma模拟）、A147624（omega模拟）、Al47627（bigomega模拟）。

%K基础，简单，无

%O 1,1号机组

%A _M.F.Hasler，2008年11月8日