%I #15 Feb 04 2024 08:58:19

%S 1,2,6,7,10,24,90,144,766,1040,1164,2122,3010,8914,17838,20500,87472,

%T 243252,312058,1118346,1347998,2167146,3569780,6038946

%N 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 Indices k at which A351073(k) for the first time attains a new distinct value.

%H <a href="/index/Pri#primorialbase">Index entries for sequences related to primorial base</a>

%H <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>

%e See examples in A369649.

%o (PARI)

%o A051903(n) = if((1==n),0,vecmax(factor(n)[, 2]));

%o 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 A351073(n) = A051903(A276156(n));

%o m=Map(); for(n=1,2^25,e=A351073(n);if(!mapisdefined(m,e),mapput(m,e,n);print1(n,", ")));

%Y Cf. A002110, A051903, A276156, A351073, A369649 (corresponding values of A276156).

%Y Cf. also A369647.

%K nonn,hard,more

%O 1,2

%A _Antti Karttunen_, Feb 03 2024