A131826 a(n) is the unique solution to Cototient(x) = A131825(n).

1, 4, 9, 25, 10, 26, 34, 38, 30, 52, 74, 76, 82, 122, 90, 134, 146, 148, 114, 130, 194, 202, 206, 170, 226, 244, 186, 268, 292, 228, 290, 386, 388, 398, 404, 412, 370, 482, 366, 488, 434, 514, 430, 584, 518, 578, 614, 626, 450, 674, 462, 580, 610, 746, 558, 772

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..15628

Example

a(5) = 10 is the unique solution to Cototient(x) = A131825(5) = 6.

Prog

(PARI) lista(nn) = {my(c, r, v=vector(nn^2+2, i, i - eulerphi(i))); for(k=0, nn, c=0; for(i=1, k*k+2, if(k==v[i], r=i; c++)); if(c==1, print1(r, ", "))); } \\ Jinyuan Wang, Mar 22 2020

Crossrefs

Cf. A051953, A063742, A131825.

Sequence in context: A334656 A175121 A133905 * A366786 A051961 A339794

Adjacent sequences: A131823 A131824 A131825 * A131827 A131828 A131829

Keyword

nonn

Author

Franz Vrabec, Jul 20 2007

Extensions

More terms from Jinyuan Wang, Mar 22 2020

Status

approved