A079749 Erroneous version of A358890.
3, 2, 1, 8, 90, 168, 9352, 46189, 2515371, 721970, 6449639, 565062156, 11336460025, 37151747513, 256994754033
Offset: 1
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.
A079866 := proc(n) root[numtheory[bigomega](n)](n) ; floor(%) ; end proc: seq(A079866(n),n=1..97) ; # R. J. Mathar, Sep 07 2016
Join[{1}, Table[Floor[n^(1/PrimeOmega[n])], {n, 2, 20}]] (* G. C. Greubel, Sep 16 2016 *)
a(n) = if (n==1, 1, sqrtnint(n, bigomega(n))); \\ Michel Marcus, Sep 09 2016
a(5)=90 because the largest prime factors of 90,91,92,93,94 are 5,13,23,31,47.
from sympy import factorint def A100384(n): k, a = 2, [max(factorint(m+2)) for m in range(n)] while True: for i in range(1, n): if a[i-1] >= a[i]: break else: return k a = a[i:] + [max(factorint(k+j+n)) for j in range(i)] k += i # Chai Wah Wu, Jul 24 2017
n=20: 20 = 5*2^2, 21 = 7*3, 22 = 11*2 and 23, followed by 24 = 3*2^3: therefore a(20)=3 (5 < 7 < 11 < 23 and 23 > 3).
Comments