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.

A331312 a(n) = A225546(n) / A293442(n).

This page as a plain text file.
%I A331312 #8 Jan 21 2020 18:22:56
%S A331312 1,1,2,1,8,2,128,1,3,8,32768,2,2147483648,128,16,1,
%T A331312 9223372036854775808,3,170141183460469231731687303715884105728,8,256,
%U A331312 32768,57896044618658097711785492504343953926634992332820282019728792003956564819968,2,27,2147483648,6,128
%N A331312 a(n) = A225546(n) / A293442(n).
%H A331312 Antti Karttunen, <a href="/A331312/b331312.txt">Table of n, a(n) for n = 1..40</a>
%F A331312 a(n) = A225546(n) / A293442(n).
%F A331312 Multiplicative, with a(prime(i)^j) = A019565(j)^A000225(i-1).
%o A331312 (PARI)
%o A331312 A019565(n) = {my(j,v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ From A019565
%o A331312 A331312(n) = { my(f=factor(n)); for (i=1, #f~, my(p=f[i, 1]); f[i, 1] = A019565(f[i, 2]); f[i, 2] = (2^(primepi(p)-1))-1; ); factorback(f); };
%Y A331312 Cf. A000225, A019565, A225546, A293442, A331311.
%K A331312 nonn,mult
%O A331312 1,3
%A A331312 _Antti Karttunen_, Jan 21 2020