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 A292571 #13 Aug 26 2023 04:18:05 %S A292571 935,31535,76751,1707839,3106799,11141999,24685199,43383167,83618639, %T A292571 151524071,161841239,189099039,212133599,213884999,219155615, %U A292571 233743319,241485839,271038599,287432495,338340239,353107799,624840479,660423455,945236159,1171355471 %N A292571 Lucas-Carmichael numbers whose Dedekind psi value is a square. %H A292571 Amiram Eldar, <a href="/A292571/b292571.txt">Table of n, a(n) for n = 1..241</a> (terms below 10^12) %e A292571 psi(935) = 36^2. %t A292571 psi[n_] := If[n < 1, 0, n*Sum[MoebiusMu[d]^2/d, {d, Divisors@n}]]; s = Import["b006972.txt","Data"][[All,-1]]; Select[s, IntegerQ@Sqrt[psi@#] &] %Y A292571 Intersection of A006972 and A291167. %Y A292571 Cf. A001615, A272798, A292572, A292573. %K A292571 nonn %O A292571 1,1 %A A292571 _Amiram Eldar_, Sep 19 2017