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.

A369648 Indices of novel terms in A351073, where A351073 is the maximal exponent in the prime factorization of the numbers that are sums of distinct primorial numbers.

This page as a plain text file.
%I A369648 #15 Feb 04 2024 08:58:19
%S A369648 1,2,6,7,10,24,90,144,766,1040,1164,2122,3010,8914,17838,20500,87472,
%T A369648 243252,312058,1118346,1347998,2167146,3569780,6038946
%N A369648 Indices of novel terms in A351073, where A351073 is the maximal exponent in the prime factorization of the numbers that are sums of distinct primorial numbers.
%C A369648 Indices k at which A351073(k) for the first time attains a new distinct value.
%H A369648 <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>
%H A369648 <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>
%e A369648 See examples in A369649.
%o A369648 (PARI)
%o A369648 A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));
%o A369648 A276156(n) = { my(s=0, p=1, r=1); while(n, if(n%2, s += r); n>>=1; p = nextprime(1+p); r *= p); (s); };
%o A369648 A351073(n) = A051903(A276156(n));
%o A369648 m=Map(); for(n=1,2^25,e=A351073(n);if(!mapisdefined(m,e),mapput(m,e,n);print1(n,", ")));
%Y A369648 Cf. A002110, A051903, A276156, A351073, A369649 (corresponding values of A276156).
%Y A369648 Cf. also A369647.
%K A369648 nonn,hard,more
%O A369648 1,2
%A A369648 _Antti Karttunen_, Feb 03 2024