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

Author

Andrew Weimholt, Aug 05 2005

Keywords

• easy
• nonn

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

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

Links

• Index entries for sequences that are fixed points of mappings

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.