|
|
|
|
2, 6, 10, 30, 70, 210, 770, 2310, 10010, 30030, 34034, 170170, 510510, 646646, 3233230, 9699690, 14872858, 74364290, 223092870, 431312882, 2156564410, 6469693230, 13370699342, 66853496710, 200560490130, 494715875654, 2473579378270, 7420738134810, 20283350901814
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Block[{s = Array[Times @@ Prime@ Flatten@ Position[#, 1] &@ IntegerDigits[#, 2] &, 2^12]}, Union@ FoldList[Max, s]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|