A141257 -id:A141257 - cp's OEIS frontend

A143677 ( 1, 2, 3, 2^2, 5, 23, 7, 2^3, 3^2, 25, 11, 2^2*3, 13,..) becomes (abs (1-2, 3-2, 2-5, 2-3, 7-2, 3-3, 2-2, 5-11, 2-2, 3-13,..)).

1, 1, 3, 1, 5, 0, 0, 6, 0, 10, 5, 2, 2, 15, 1, 17, 3, 4, 9, 21, 0, 3, 11, 0, 0, 22, 1, 26, 3, 8, 15, 2, 0, 1, 35, 16, 11, 2, 39, 4, 41, 9, 1, 3, 24, 2, 4, 0, 3, 14, 0, 40, 1, 2, 9, 4, 16, 27, 57, 1, 56, 29, 1, 5, 1, 11, 8, 65, 15, 20, 3, 64, 1, 1, 71, 34, 3, 0, 12, 9, 10, 77, 1, 1, 39, 81, 1, 2, 15

Offset: 1

Juri-Stepan Gerasimov, Nov 01 2008

			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.

Cf. A141257, A141261.

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

Removed incompatibilities with internal OEIS format, extended, R. J. Mathar, Nov 06 2008

A143678 ( 1, 2, 3, 2^2, 5, 23, 7, 2^3, 3^2, 25, 11, 2^23, 13, 27, 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,..)).

Original entry on oeis.org

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

Offset: 1

Juri-Stepan Gerasimov, Nov 01 2008

nonn

			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.

Cf. A141257, A141261.

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

Removed incompatibilities with internal OEIS format, extended R. J. Mathar, Nov 06 2008

cp's OEIS Frontend

A143677 ( 1, 2, 3, 2^2, 5, 23, 7, 2^3, 3^2, 25, 11, 2^2*3, 13,..) becomes (abs (1-2, 3-2, 2-5, 2-3, 7-2, 3-3, 2-2, 5-11, 2-2, 3-13,..)).

Views

Author

Keywords

Examples

Crossrefs

Programs

Maple

Extensions

A143678 ( 1, 2, 3, 2^2, 5, 23, 7, 2^3, 3^2, 25, 11, 2^23, 13, 27, 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,..)).

Views

Author

Keywords

Examples

Crossrefs

Programs

Maple

Extensions

cp's OEIS Frontend

A143677 ( 1, 2, 3, 2^2, 5, 2*3, 7, 2^3, 3^2, 2*5, 11, 2^2*3, 13,..) becomes (abs (1-2, 3-2, 2-5, 2-3, 7-2, 3-3, 2-2, 5-11, 2-2, 3-13,..)).

Views

Author

Keywords

Examples

Crossrefs

Programs

Maple

Extensions

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,..)).

Views

Author

Keywords

Examples

Crossrefs

Programs

Maple

Extensions

A143677 ( 1, 2, 3, 2^2, 5, 23, 7, 2^3, 3^2, 25, 11, 2^2*3, 13,..) becomes (abs (1-2, 3-2, 2-5, 2-3, 7-2, 3-3, 2-2, 5-11, 2-2, 3-13,..)).

A143678 ( 1, 2, 3, 2^2, 5, 23, 7, 2^3, 3^2, 25, 11, 2^23, 13, 27, 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,..)).