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.

A362211 a(n) is the unique solution to A323410(x) = A362185(n).

This page as a plain text file.
%I A362211 #10 Apr 12 2023 08:06:01
%S A362211 1,6,15,21,35,11392,1688,10048,53632,101632,5272,2632,6616,50368,1386,
%T A362211 102016,1716,1722,161152,4356,11992,92992,4716,101312,589312,2634,
%U A362211 644608,3538,3778,898048,30896,16312,3610,3510,4702,1432576,4626,606976,8908,3738,343936
%N A362211 a(n) is the unique solution to A323410(x) = A362185(n).
%H A362211 Amiram Eldar, <a href="/A362211/b362211.txt">Table of n, a(n) for n = 1..2335</a>
%F A362211 A323410(a(n)) = A362185(n).
%t A362211 ucototient[n_] := n - Times @@ (Power @@@ FactorInteger[n] - 1); ucototient[1] = 0; With[{max = 3000}, sol = solnum = Table[0, {n, 1, max}]; Do[If[(i = ucototient[k]) <= max, sol[[i]] = k; solnum[[i]]++], {k, 2, max^2}]; Join[{1}, sol[[Position[solnum, 1] // Flatten]]]]
%Y A362211 Cf. A323410, A362185.
%Y A362211 Similar sequences: A131826, A362212.
%K A362211 nonn
%O A362211 1,2
%A A362211 _Amiram Eldar_, Apr 11 2023