OFFSET
1,3
EXAMPLE
Abs(1-2)=abs(-1)=1=a(1).
Abs(3-2)=abs(1)=1=a(2).
Abs(2-5)=abs(-3)=3=a(3).
Abs(2-3)=abs(-1)=1=a(4).
Abs(7-2)=abs(5)=5=a(5).
Abs(3-3)=abs(0)=0=a(6).
Abs(2-2)=abs(0)=0=a(7).
Abs(5-11)=abs(-6)=6=a(8).
Abs(2-2)=abs(0)=0=a(9).
Abs(3-13)=abs(-10)=10=a(10), etc.
MAPLE
pflat2 := proc(nmax) local a, ifs, n, p, c ; a := [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)-3 by 2 do printf("%d, ", abs(op(n, pL)-op(n+1, pL)) ) ; od: # R. J. Mathar, Nov 06 2008
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Juri-Stepan Gerasimov, Nov 01 2008
EXTENSIONS
Removed incompatibilities with internal OEIS format, extended, R. J. Mathar, Nov 06 2008
STATUS
approved