A141430 -id:A141430 - cp's OEIS frontend

A146501 Period 6: repeat [4,8,7,5,1,2].

4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2, 4, 8, 7, 5, 1, 2

Offset: 0

Paul Curtz, Oct 30 2008

Index entries for linear recurrences with constant coefficients, signature (1,0,-1,1).

Cf. A029898, A141425, A141430, A146322.

LinearRecurrence[{1,0,-1,1},{4,8,7,5},102] (* Ray Chandler, Jul 15 2015 *)
PadRight[{},120,{4,8,7,5,1,2}] (* Harvey P. Dale, Apr 01 2024 *)

G.f.: (4+4*x-x^2+2*x^3)/((1-x)*(1+x)*(1-x+x^2)). - Jaume Oliver Lafont, Aug 30 2009

Extended by Ray Chandler, Jul 15 2015

A141446 A102055(n) mod 9.

Original entry on oeis.org

1, 2, 1, 4, -4, 7, -5, 8, -5, 4, -7, 1, -5, 5, -2, 4, -1, 4, -5, 2, -8, 4, -4, 7, -5, 8, -5, 4, -7, 1, -5, 5, -2, 4, -1, 4, -5, 2, -8, 4, -4, 7, -5, 8, -5, 4, -7, 1, -5, 5, -2, 4, -1, 4, -5, 2, -8, 4, -4, 7, -5, 8, -5, 4, -7, 1, -5, 5, -2, 4, -1, 4, -5, 2, -8, 4, -4, 7, -5, 8, -5, 4, -7, 1, -5, 5

Offset: 0

Paul Curtz, Aug 07 2008

sign

We compute the positive remainder modulo 9 and subtract 9 if A102055(n) is negative.

Appears to be periodic with period length 18 after the transitional first 3 elements. (This would imply only the same 6 digits appear as found in A141425.)

Cf. A141430.

A102055 := proc(n) local k; if n = 0 then 1; else 1-add(A001469(k),k=1..n) ; end if; end proc:
A141446 := proc(n) local a; a := A102055(n) ; if a > 0 then a mod  9; else (a mod  9)-9; end if; end proc; # R. J. Mathar, Jul 07 2011

a(3n) + a(3n+1) + a(3n+2) = 4, 7, -2, -2, -2, 5 ever same six digits?

cp's OEIS Frontend

A146501 Period 6: repeat [4,8,7,5,1,2].

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Formula

Extensions