A182445 -id:A182445 - cp's OEIS frontend

A182444 a(0)=0, a(1)=1, for n>1, a(n) = a(n-1) + (a(n-2) mod n).

0, 1, 1, 2, 3, 5, 8, 13, 13, 17, 20, 26, 34, 34, 40, 44, 52, 62, 78, 83, 101, 121, 134, 140, 154, 169, 193, 200, 225, 251, 266, 269, 279, 284, 291, 295, 298, 334, 366, 388, 394, 413, 429, 455, 488, 493, 521, 544, 585, 590, 625, 654, 655, 673, 680, 693

Offset: 0

Alex Ratushnyak, Apr 29 2012

nonn

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Cf. A182445.

nxt[{n_,a_,b_}]:={n+1,b,b+Mod[a,n+1]}; NestList[nxt,{1,0,1},60][[All,2]] (* Harvey P. Dale, May 30 2020 *)

prpr = 0
prev = 1
for i in range(2,99):
    current = prev + (prpr % i)
    print(prpr, end=', ')
    prpr = prev
    prev = current

A182946 Array of odd prime powers p^j, where j>=1, by antidiagonals.

Original entry on oeis.org

3, 9, 5, 27, 25, 7, 81, 125, 49, 11, 243, 625, 343, 121, 13, 729, 3125, 2401, 1331, 169, 17, 2187, 15625, 16807, 14641, 2197, 289, 19, 6561, 78125, 117649, 161051, 28561, 4913, 361, 23, 19683, 390625, 823543, 1771561, 371293, 83521, 6859, 529, 29

Offset: 1

Clark Kimberling, Dec 14 2010

The monotonic ordering of A182946, with 1 prefixed, is A061345. The joint-rank array of A182946 is A182870.

Cf. A061345, A182445.

 width=9;Transpose[Table[Table[Prime[n+1]^j,{n,1,width},{j,1,width}]]]; Flatten[Table[Table[%[[z-k+1]][[k]],{k,1,z}],{z,1,width}]]

cp's OEIS Frontend

A182444 a(0)=0, a(1)=1, for n>1, a(n) = a(n-1) + (a(n-2) mod n).

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

Python