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.

A344752 Quotient A306927(k) / A344705(k) computed for such k >= 1 that the quotient is a nonnegative natural number. (The k are given by A344700.)

This page as a plain text file.
%I A344752 #13 Jun 13 2021 03:22:18
%S A344752 0,1,2,1,3,1,12,21,2,3,36,4,4,61,2,3,5,243,36,2,1,70,345,90,5,5,38,11,
%T A344752 3,131,25,87,172,2,9,5,228,5,20,43,18,5,10,304,3,1035,31,1301,7,172,8,
%U A344752 554,60,15,295,59,14,150,110,7,2439,258,371,5,549,8,13,15,63,1134,24,900,23,50,7,4,27,1292,254,6681,5,18
%N A344752 Quotient A306927(k) / A344705(k) computed for such k >= 1 that the quotient is a nonnegative natural number. (The k are given by A344700.)
%o A344752 (PARI)
%o A344752 A001615(n) = if(1==n,n, my(f=factor(n)); prod(i=1, #f~, f[i, 1]^f[i, 2] + f[i, 1]^(f[i, 2]-1))); \\ After code in A001615
%o A344752 isA344700_and_give_quotient(n) = { my(t=A001615(n), s=sigma(n), u = (n+t)-s); if(((u>0)&&(0==((t-n)%u))), ((t-n)/u), 0); };
%o A344752 for(n=1,2^17,x=isA344700_and_give_quotient(n); if(x>0||(1==n), print1(x,", ")));
%Y A344752 Cf. A000203, A001615, A306927, A344700, A344705.
%K A344752 nonn
%O A344752 1,3
%A A344752 _Antti Karttunen_, May 28 2021