OFFSET
1,3
COMMENTS
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..16384
EXAMPLE
MAPLE
# This generates the terms starting at n=2:
P:=proc(n) local FM: FM:=ifactors(n)[2]: seq(seq(FM[j][1], k=1..FM[j][2]), j=1..nops(FM)) end: # A027746
f0:=[]; f1:=[]; f2:=[];
for n from 2 to 120 do
a:=0; b:=1; t1:=[P(n)];
for i from 1 to nops(t1) do b:=b/t1[i]; a:=a+b; od;
f0:=[op(f0), a]; f1:=[op(f1), numer(a)]; f2:=[op(f2), denom(a)]; od:
f0; # s
f1; # A322034
f2; # A322035
f2-f1; # A322036
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
N. J. A. Sloane and David James Sycamore, Nov 28 2018
STATUS
approved