This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A114073 #10 Jan 18 2024 01:39:03 %S A114073 5,12,13,41,44,48,61,68,108,113,125,172,176,181,192,252,268,272,313, %T A114073 385,421,432,452,524,613,657,684,688,704,761,768,772,825,964,972,1008, %U A114073 1013,1072,1088,1201,1301,1332,1412,1728,1729,1741,1808,1861,2092 %N A114073 Numbers k such that phi(k) + k is a square. %H A114073 Amiram Eldar, <a href="/A114073/b114073.txt">Table of n, a(n) for n = 1..10000</a> %e A114073 phi(41) + 41 = 81 = 9^2. %t A114073 Select[Range[2500], IntegerQ[Sqrt[EulerPhi[#] + #]] &] (* _Amiram Eldar_, Jan 18 2024 *) %o A114073 (PARI) isok(n) = issquare(eulerphi(n) + n); \\ _Michel Marcus_, Jan 09 2014 %Y A114073 Cf. A000010, A121048, supersequence of A114072. %K A114073 nonn %O A114073 1,1 %A A114073 _Giovanni Resta_, Feb 13 2006