A194077 -id:A194077 - cp's OEIS frontend

A194078 Inverse permutation of A194077; every positive integer occurs exactly once.

1, 3, 2, 5, 4, 8, 6, 7, 12, 9, 11, 17, 13, 16, 23, 18, 10, 22, 30, 24, 14, 29, 38, 31, 19, 37, 47, 39, 25, 46, 57, 48, 32, 15, 56, 68, 58, 40, 20, 67, 69, 49, 26, 59, 33, 70, 41, 50, 21, 60, 27, 71, 34, 42, 51, 61

Offset: 1

Graph
List
Refs
Listen
History
Text
Internal format

Clark Kimberling, Aug 14 2011

nonn

Cf. A194077.

Mathematica
```
(See A194077.)
```

A194126 -1+A088207.

Original entry on oeis.org

1, 6, 13, 23, 36, 51, 69, 89, 112, 138, 166, 197, 231, 267, 306, 347, 391, 438, 487, 539, 593, 650, 710, 772, 837, 905, 975, 1048, 1123, 1201, 1282, 1365, 1451, 1540, 1631, 1725, 1821, 1920, 2022, 2126, 2233, 2342, 2454, 2569, 2686, 2806, 2929

Offset: 1

Graph
List
Refs
Listen
History
Text
Internal format

Clark Kimberling, Aug 15 2011

nonn

A194077 is the natural fractal sequence of A194126.

Cf. A088207, A194077, A194100.

c[k_]:=-1+Sum[Floor[j+j*GoldenRatio],{j,1,k}];
c=Table[c[k],{k,1,40}]

a(n)=-1+sum(floor(j+j*r) : 1<=j<=n), where r=(1+sqrt(5))/2, the golden ratio.

cp's OEIS Frontend

A194078 Inverse permutation of A194077; every positive integer occurs exactly once.

Views

Author

Keywords

Crossrefs

Programs

Mathematica