The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A143678 ( 1, 2, 3, 2^2, 5, 2*3, 7, 2^3, 3^2, 2*5, 11, 2^2*3, 13, 2*7, 3*5,..) becomes (abs (1-2+3, 2-2+5, 2-3+7, 2-3+3, 2-2+5, 11-2+2, 3-13+2, 7-3+5,..)). 1
 2, 5, 6, 2, 5, 11, 8, 9, 15, 1, 19, 9, 14, 2, 5, 13, 7, 30, 24, 13, 10, 7, 38, 14, 14, 34, 39, 11, 6, 26, 1, 7, 6, 17, 38, 5, 12, 23, 32, 3, 54, 30, 11, 6, 59, 17, 18, 69, 2, 69, 39, 2, 23, 12, 81, 6, 44, 3, 19, 38, 30, 76, 6, 4, 18, 76, 12, 99, 3, 12, 5, 97, 89, 12, 5, 56, 3, 104, 3, 39, 104, 11, 23, 28, 70, 8, 5, 11, 99, 31, 4, 8 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS EXAMPLE Abs(1-2+3)=abs(2)=2=a(1). Abs(2-2+5)=abs(5)=5=a(2). Abs(2-3+7)=abs(6)=6=a(3). Abs(2-3+3)=abs(2)=2=a(4). Abs(2-2+5)=abs(5)=5=a(5). Abs(11-2+2)=abs(11)=11=a(6). Abs(3-13+2)=abs(-8)=8=a(7). Abs(7-3+5)=abs(9)=9=a(8), 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)-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 CROSSREFS Cf. A141257, A141261. Sequence in context: A145058 A103130 A159987 * A346042 A021800 A140862 Adjacent sequences: A143675 A143676 A143677 * A143679 A143680 A143681 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 6 23:12 EST 2023. Contains 360111 sequences. (Running on oeis4.)