OFFSET
1,2
COMMENTS
FORMULA
MAPLE
nmax := 78: A000040 := proc(n): ithprime(n) end: A130290 := proc(n): if n =1 then 1 else (A000040(n)-1)/2 fi: end: for n from 1 to nmax do A217983(n) := 1 od: for n from 1 to nmax do for n1 from 1 to floor(log[A000040(n)](nmax)) do A217983(A130290(n) * A000040(n)^n1) := A000040(n) od: od: seq(A217983(n), n=1..nmax);
CROSSREFS
KEYWORD
nonn
AUTHOR
Johannes W. Meijer, Oct 25 2012
STATUS
approved