cp's OEIS Frontend

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.

A362185 Numbers k with a single solution x to the equation A323410(x) = k.

This page as a plain text file.
%I A362185 #10 Apr 11 2023 04:17:54
%S A362185 0,4,7,9,11,216,218,220,546,652,666,700,834,850,906,924,996,1242,1386,
%T A362185 1476,1506,1516,1596,1646,1662,1758,1770,1858,1890,1900,1946,2046,
%U A362185 2170,2262,2352,2422,2578,2626,2668,2682,2814,2842,2980,2992,3010,3048,3100,3154
%N A362185 Numbers k with a single solution x to the equation A323410(x) = k.
%C A362185 Numbers k such that A362181(k) = 1.
%H A362185 Amiram Eldar, <a href="/A362185/b362185.txt">Table of n, a(n) for n = 1..2335</a> (terms below 10^5)
%e A362185 0 is a term since there is only one solution, x = 1, to A323410(x) = 0.
%t A362185 ucototient[n_] := n - Times @@ (Power @@@ FactorInteger[n] - 1); ucototient[1] = 0; With[{max = 300}, solnum = Table[0, {n, 1, max}]; Do[If[(i = ucototient[k]) <= max, solnum[[i]]++], {k, 2, max^2}]; Join[{0}, Position[solnum, 1] // Flatten]]
%Y A362185 Cf. A323410, A362181.
%Y A362185 The unitary version of A131825.
%Y A362185 Similar sequence: A361969.
%K A362185 nonn
%O A362185 1,2
%A A362185 _Amiram Eldar_, Apr 10 2023