The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A327306 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A327306

a(n) = floor(3*n*r) - 3*floor(n*r), where r = sqrt(6).
(history; published version)

#17 by Peter Luschny at Thu Aug 04 15:05:16 EDT 2022

STATUS

proposed

approved

#16 by Michel Marcus at Thu Aug 04 13:06:57 EDT 2022

STATUS

editing

proposed

#15 by Michel Marcus at Thu Aug 04 13:06:54 EDT 2022

CROSSREFS

Cf. A022840.

STATUS

proposed

editing

#14 by Chai Wah Wu at Thu Aug 04 12:58:50 EDT 2022

STATUS

editing

proposed

#13 by Chai Wah Wu at Thu Aug 04 12:58:26 EDT 2022

PROG

(Python)

from math import isqrt

def A327306(n): return isqrt(9*(m:=6*n*n))-3*isqrt(m) # Chai Wah Wu, Aug 04 2022

STATUS

approved

editing

#12 by Susanna Cuyler at Sun Sep 15 13:56:47 EDT 2019

STATUS

proposed

approved

#11 by Jianing Song at Sun Sep 15 03:40:35 EDT 2019

STATUS

editing

proposed

#10 by Jianing Song at Sun Sep 15 03:37:21 EDT 2019

MATHEMATICA

t = Table[Floor[3 n*r] - 3 Floor[n*r], {n, 0, z}] (* A327306 *)

Flatten[Position[t, 0]] (* A327307 *)

Flatten[Position[t, 1]] (* A327308 *)

Flatten[Position[t, 2]] (* A327309 *)

CROSSREFS

Cf. The positions of 0's, 1's and 2's in {a(n) : n > 0} are given by A327307, A327308, and A327309.

STATUS

approved

editing

Discussion

Sun Sep 15

03:40

Jianing Song: Changes to A327174, A327177, A327180, A327183, A327202, A327205, A327208, A327211, A327216, A327219, A327222, A327253, A327256, A327298, A327306, A327310: Clark Kimberling has agreed to delete some extra lines of this program to avoid the offset problem.

#9 by N. J. A. Sloane at Mon Sep 09 01:18:56 EDT 2019

STATUS

proposed

approved

#8 by Clark Kimberling at Sun Sep 08 19:38:25 EDT 2019

STATUS

editing

proposed