A109648 Sequence is its own ASCII representation (including commas and spaces).
53, 51, 44, 32, 53, 49, 44, 32, 52, 52, 44, 32, 51, 50, 44, 32, 53, 51, 44, 32, 52, 57, 44, 32, 52, 52, 44, 32, 51, 50, 44, 32, 53, 50, 44, 32, 53, 50, 44, 32, 52, 52, 44, 32, 51, 50, 44, 32, 53, 49, 44, 32, 53, 48, 44, 32, 52, 52, 44, 32, 51, 50, 44, 32, 53, 51, 44, 32, 53
Offset: 0
Examples
a(0) = 53 = 0x35 --> '5' a(1) = 51 = 0x33 --> '3' a(2) = 44 = 0x2C --> ',' a(3) = 32 = 0x20 --> ' ' a(4) = 53 = 0x35 --> '5' a(5) = 49 = 0x33 --> '1' a(6) = 44 = 0x2C --> ','
Crossrefs
Cf. A109733 is another version.
Programs
-
Mathematica
a[0] = 53; a[1] = 51; a[n_] := Switch[Mod[n, 4], 0, 48 + Floor[a[n/4]/10], 1, 48 + Mod[a[(n - 1)/4], 10], 2, 44, 3, 32]; Table[a[n], {n, 0, 68}] (* Robert G. Wilson v, May 02 2006 *)
-
PARI
(t=s->Vec(Vecsmall(Str(s))[2..-2]))(t(t(t(t([5]))))) \\ M. F. Hasler, Feb 02 2016
Formula
a(4n) = 48 + floor( a(n)/10 ), a(4n+1) = 48 + remainder( a(n)/10 ), a(4n+2) = 44, a(4n+3) = 32.
Comments