A214394 If n mod 6 = 0 then n/6 else n.

0, 1, 2, 3, 4, 5, 1, 7, 8, 9, 10, 11, 2, 13, 14, 15, 16, 17, 3, 19, 20, 21, 22, 23, 4, 25, 26, 27, 28, 29, 5, 31, 32, 33, 34, 35, 6, 37, 38, 39, 40, 41, 7, 43, 44, 45, 46, 47, 8, 49, 50, 51, 52, 53, 9, 55, 56, 57, 58, 59, 10, 61

Offset: 0

Author

Jeremy Gardiner, Jul 15 2012

Keywords

• nonn
• easy

Examples

			a(36) = 36/6 = 6.
		

Links

• Jeremy Gardiner, Table of n, a(n) for n = 0..1000
• Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,0,2,0,0,0,0,0,-1).

Crossrefs

Cf. A026741, A051176, A214392.

Cf. A044102, A244414.

Programs

Mathematica

Table[If[Mod[n, 6] == 0, n/6, n], {n, 0, 50}] (* G. C. Greubel, Oct 26 2017 *)

PARI

a(n)=if(n%6,n,n/6) \\ G. C. Greubel, Oct 26 2017

PARI

first(n) = my(res = vector(n, i, i-1)); forstep(i = 1, n, 6, res[i] \= 6); res \\ David A. Corneth, Oct 28 2017

Formula

a(n) = 2*a(n-6) - a(n-12). - G. C. Greubel, Oct 26 2017 [corrected by Georg Fischer, Mar 12 2020]

a(n) = A244414(n) when n is not a multiple of 36 (A044102). - Michel Marcus, Oct 28 2017

a(n) = floor(n/6) + sign(n mod 6) * (n - floor(n/6)). - Wesley Ivan Hurt, Oct 28 2017