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.

A364804 a(n) is the smallest number k such that the number of prime divisors (counted with multiplicity) of the n numbers from k through k+n-1 are in nondescending order.

This page as a plain text file.
%I A364804 #15 Aug 14 2023 16:59:20
%S A364804 1,1,1,1,121,121,2521,2521,162121,460801,23553169,23553169,244068841,
%T A364804 913535283
%N A364804 a(n) is the smallest number k such that the number of prime divisors (counted with multiplicity) of the n numbers from k through k+n-1 are in nondescending order.
%C A364804 Smallest initial number k of n consecutive numbers satisfying bigomega(k) <= bigomega(k+1) <= ... <= bigomega(k+n-1).
%e A364804 a(5) = 121 = a(6) as bigomega(121) = bigomega(122) = bigomega(123) = 2 < bigomega(124) = bigomega(125) = 3 < bigomega(126) = 4.
%t A364804 k = 1; Do[While[t = Table[PrimeOmega[i], {i, k, k + n - 1}]; t != Sort[t], k++]; Print[k], {n, 1, 10}]
%o A364804 (PARI) a(n) = my(k=1, list=List(vector(n, i, bigomega(i)))); while (vecsort(list) != list, listpop(list, 1); k++; listput(list, bigomega(k+n-1))); k; \\ _Michel Marcus_, Aug 14 2023
%Y A364804 Cf. A001222, A075046, A286288, A364805.
%K A364804 nonn,more
%O A364804 1,5
%A A364804 _Ilya Gutkovskiy_, Aug 08 2023
%E A364804 a(11)-a(14) from _Michel Marcus_, Aug 14 2023