login
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.
1
1, 2, 6, 7, 10, 24, 90, 144, 766, 1040, 1164, 2122, 3010, 8914, 17838, 20500, 87472, 243252, 312058, 1118346, 1347998, 2167146, 3569780, 6038946
OFFSET
1,2
COMMENTS
Indices k at which A351073(k) for the first time attains a new distinct value.
EXAMPLE
See examples in A369649.
PROG
(PARI)
A051903(n) = if((1==n), 0, vecmax(factor(n)[, 2]));
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); };
m=Map(); for(n=1, 2^25, e=A351073(n); if(!mapisdefined(m, e), mapput(m, e, n); print1(n, ", ")));
CROSSREFS
Cf. A002110, A051903, A276156, A351073, A369649 (corresponding values of A276156).
Cf. also A369647.
Sequence in context: A287453 A287449 A287688 * A221847 A283766 A047216
KEYWORD
nonn,hard,more
AUTHOR
Antti Karttunen, Feb 03 2024
STATUS
approved