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,1

Comments

Only possible values are 32, 44, 48, 49, 50, 51, 52, 53, 54, 55, 56 and 57 which make their first appearance at n: 3, 2, 53, 5, 13, 1, 8, 0, 853, 85, 213, 21. - Robert G. Wilson v, May 02 2006

Links

Table of n, a(n) for n=0..68.

Index entries for sequences that are fixed points of mappings

Formula

a(4n) = 48 + floor( a(n)/10 ), a(4n+1) = 48 + remainder( a(n)/10 ), a(4n+2) = 44, a(4n+3) = 32.

Example

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 --> ','

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 *)

Prog

(PARI) (t=s->Vec(Vecsmall(Str(s))[2..-2]))(t(t(t(t([5]))))) \\ M. F. Hasler, Feb 02 2016

Crossrefs

Cf. A109733 is another version.

Sequence in context: A259091 A104936 A262908 * A109733 A094462 A232125

Adjacent sequences: A109645 A109646 A109647 * A109649 A109650 A109651

Keyword

easy,nonn

Author

Andrew Weimholt, Aug 05 2005

Status

approved