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.

A273284 A273282(n)^Omega(n), where Omega = A001222.

This page as a plain text file.
%I A273284 #28 Jun 03 2016 15:00:12
%S A273284 2,3,4,5,4,7,8,9,9,11,8,13,9,9,16,17,8,19,8,9,9,23,16,25,25,27,27,29,
%T A273284 27,31,32,25,25,25,16,37,25,25,16,41,27,43,27,27,25,47,32,49,27,49,27,
%U A273284 53,16,49,16,49,49,59,16,61,49,27,64,49,27,67,27,49,27,71,32,73,49
%N A273284 A273282(n)^Omega(n), where Omega = A001222.
%C A273284 a(n) <= A079867(n) for any n>=2.
%C A273284 a(n) = n iff n is the power of a prime (A246655).
%H A273284 Giuseppe Coppoletta, <a href="/A273284/b273284.txt">Table of n, a(n) for n = 2..10000</a>
%F A273284 a(n) = A273282(n)^A001222(n).
%e A273284 a(33) = 25 because Omega(33)=2 and 5^2 < 33 < 7^2.
%e A273284 If n= 3^3 * 31^2 * 67 then a(n)= 7^6 and A273285(n)=11^6 because Omega(n)=6 and 7^6 < n < 11^6.
%t A273284 Table[NextPrime[(Floor[n^(1/PrimeOmega[n])] + 1) , -1]^PrimeOmega[n], {n,2,50}] (* _G. C. Greubel_, May 26 2016 *)
%o A273284 (Sage) s=sloane.A001222; [previous_prime(floor(n^(1/s(n)))+1)^s(n) for n in (2..74)]
%o A273284 (PARI) a(n) = my(bn=bigomega(n)); precprime(sqrtnint(n, bn))^bn; \\ _Michel Marcus_, May 24 2016
%Y A273284 Cf. A273282, A273285, A273290, A079867, A246655, A001222.
%K A273284 nonn
%O A273284 2,1
%A A273284 _Giuseppe Coppoletta_, May 20 2016