|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Indices k at which A351073(k) for the first time attains a new distinct value.
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
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
|
|
|
KEYWORD
|
nonn,hard,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|