[go: up one dir, main page]

login
Revision History for A244812 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
The hexagonal spiral of Champernowne, read along the 300-degree ray.
(history; published version)
#7 by Jon E. Schoenfield at Fri Mar 13 23:52:13 EDT 2015
STATUS

editing

approved

#6 by Jon E. Schoenfield at Fri Mar 13 23:52:11 EDT 2015
NAME

The hexagonal spiral of Champernowne, read along the 300° -degree ray.

STATUS

approved

editing

#5 by N. J. A. Sloane at Mon Jul 07 00:13:03 EDT 2014
STATUS

editing

approved

#4 by N. J. A. Sloane at Mon Jul 07 00:13:00 EDT 2014
NAME

The hexagonal spiral of Champernowne, read along the 300° ray.

FORMULA

(12n^2 - 23n + 12)th almost natural number (A033307), Also see formula section of A056105.

EXAMPLE

see A244807 example section for its diagram.

MATHEMATICA

almostNatural[n_, b_] := Block[{m = 0, d = n, i = 1, l, p}, While[m <= d, l = m; m = (b - 1) i*b^(i - 1) + l; i++]; i--; p = Mod[d - l, i]; q = Floor[(d - l)/i] + b^(i - 1); If[p != 0, IntegerDigits[q, b][[p]], Mod[q - 1, b]]]; f[n_] := 12n^2 - 23n + 12 (* see formula section of A244807 *); Array[ almostNatural[ f@#, 10] &, 105]

STATUS

proposed

editing

#3 by Robert G. Wilson v at Sun Jul 06 17:50:00 EDT 2014
STATUS

editing

proposed

#2 by Robert G. Wilson v at Sun Jul 06 17:49:58 EDT 2014
NAME

allocated for Robert G The hexagonal spiral of Champernowne, read the 300° ray. Wilson v

DATA

1, 1, 0, 6, 0, 8, 1, 3, 5, 3, 4, 4, 6, 1, 5, 9, 9, 1, 2, 6, 2, 1, 7, 7, 1, 2, 3, 7, 6, 2, 9, 6, 7, 3, 7, 6, 4, 4, 6, 5, 7, 5, 5, 3, 6, 6, 6, 1, 1, 7, 7, 9, 2, 8, 0, 6, 9, 0, 3, 5, 0, 4, 1, 7, 0, 2, 9, 3, 3, 6, 3, 4, 4, 0, 3, 5, 9, 6, 8, 2, 7, 4, 8, 7, 1, 9, 9, 0, 8, 2, 1, 4, 2, 9, 4, 3, 9, 4, 2, 7, 6, 4, 7, 7, 2

OFFSET

1,4

FORMULA

(12n^2 - 23n + 12)th almost natural number (A033307), Also see formula section of A056105.

EXAMPLE

see A244807 example section for its diagram.

MATHEMATICA

almostNatural[n_, b_] := Block[{m = 0, d = n, i = 1, l, p}, While[m <= d, l = m; m = (b - 1) i*b^(i - 1) + l; i++]; i--; p = Mod[d - l, i]; q = Floor[(d - l)/i] + b^(i - 1); If[p != 0, IntegerDigits[q, b][[p]], Mod[q - 1, b]]]; f[n_] := 12n^2 - 23n + 12 (* see formula section of A244807 *); Array[ almostNatural[ f@#, 10] &, 105]

KEYWORD

allocated

nonn,easy

AUTHOR

Robert G. Wilson v, Jul 06 2014

STATUS

approved

editing

#1 by Robert G. Wilson v at Sun Jul 06 12:03:07 EDT 2014
NAME

allocated for Robert G. Wilson v

KEYWORD

allocated

STATUS

approved