|
2, 2, 5, 2, 5, 30, 5, 2, 5, 30, 11, 30, 5, 30, 5, 2, 5, 30, 11, 30, 11, 2310, 11, 30, 5, 30, 11, 30, 5, 30, 5, 2, 5, 30, 11, 30, 11, 2310, 11, 30, 11, 2310, 17, 2310, 11, 2310, 11, 30, 5, 30, 11, 30, 11, 2310, 11, 30, 5, 30, 11, 30, 5, 30, 5, 2, 5, 30, 11, 30, 11, 2310, 11, 30, 11, 2310, 17, 2310, 11, 2310, 11, 30, 11, 2310, 17, 2310, 17
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI)
A322827(n) = if(!n, 1, my(bits = Vecrev(binary(n)), rl=1, o = List([])); for(i=2, #bits, if(bits[i]==bits[i-1], rl++, listput(o, rl))); listput(o, rl); my(es=Vecrev(Vec(o)), m=1); for(i=1, #es, m *= prime(i)^es[i]); (m));
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|