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