OFFSET
1,1
EXAMPLE
Abs(0-1-2)=abs(-3)=3=a(1).
Abs(3-2-2)=abs(-1)=1=a(2).
Abs(5-2-3)=abs(0)=0=a(3).
Abs(7-2-3)=abs(2)=2=a(4).
Abs(3-2-2)=abs(-1)=1=a(5).
Abs(5-11-2)=abs(-8)=8 =a(6).
Abs(2-3-13)=abs(-14)=14=a(7), etc.
MAPLE
pflat2 := proc(nmax) local a, ifs, n, p, c ; a := [0, 1] ; for n from 2 to nmax do ifs := ifactors(n)[2] ; for p in ifs do a := [op(a), op(1, p)] ; if op(2, p) > 1 then a := [op(a), op(2, p)] ; fi; od: od: a ; end: pL := pflat2(300) : for n from 1 to nops(pL)-4 by 3 do printf("%d, ", abs(op(n, pL)-op(n+1, pL)-op(n+2, pL)) ) ; od: # R. J. Mathar, Nov 06 2008
MATHEMATICA
Abs[#[[1]]-#[[2]]-#[[3]]]&/@Partition[Join[{0, 1}, Flatten[Table[ DeleteCases[ Flatten[FactorInteger[n]], 1], {n, 2, 120}]]], 3] (* Harvey P. Dale, Apr 02 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 01 2008
EXTENSIONS
Removed incompatibilities with internal OEIS format, extended, R. J. Mathar, Nov 06 2008
STATUS
approved