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.
%I A383081 #11 Apr 19 2025 18:06:58 %S A383081 1,1,6,2,4,2,4,1,1,4,15,1,4,10,15,1,5,24,52,1,2,5,1,3,5,31,45,2,4,14, %T A383081 41,1,2,5,7,2,4,5,11,30,43,2,6,18,26,71,139,3,36,69,96,5,14,69,95,1,4, %U A383081 11,30,57,1,2,8,39,54,255,2,3,9,32,60,82,2,7,13,45 %N A383081 a(n) = A003557(A089016(n)). %C A383081 Largest n-round number A089016(n) = k*P. Then a(n) = k = rad(k*P), where P is in A002110 and rad = A007947. %H A383081 Michael De Vlieger, <a href="/A383081/b383081.txt">Table of n, a(n) for n = 0..5000</a> %t A383081 Table[k = P = 1; %t A383081 While[P *= Prime[k]; P < Prime[k + 1]^(n + 1), k++]; %t A383081 P /= Prime[k]; Floor[Prime[k]^(n + 1)/P], {n, 0, 75}] %Y A383081 Cf. A002110, A003557, A007947, A048597, A089016, A122936, A122937. %K A383081 nonn %O A383081 0,3 %A A383081 _Michael De Vlieger_, Apr 18 2025