A082567 Palindromic time display in hours, minutes, seconds on a six spaced 24-hour digital clock, using hours 1-24.
10001, 10101, 10201, 10301, 10401, 10501, 10601, 10701, 10801, 10901, 11011, 11111, 11211, 11311, 11411, 11511, 11611, 11711, 11811, 11911, 12021, 12121, 12221, 12321, 12421, 12521, 12621, 12721, 12821, 12921, 13031, 13131, 13231, 13331, 13431, 13531
Offset: 1
Examples
40704 actually stands for 4:07:04, i.e., 4h07m04s. Similarly, 123321 stands for 12:33:21, i.e., 12h33m21s.
Links
- Nathaniel Johnston, Table of n, a(n) for n = 1..606 (full sequence)
Crossrefs
Cf. A222620.
Programs
-
Maple
for h from 1 to 24 do for m from 0 to 59 do for s from 0 to 59 do t:=10000*h+100*m+s: d:=convert(t,base,10): n:=nops(d): if(d[1]=d[n] and d[2]=d[n-1] and d[3]=d[n-2])then printf("%d, ", t): fi: od: od: od: # Nathaniel Johnston, May 17 2011
-
Mathematica
Select[Table[FromDigits@ Flatten@ Map[PadLeft[IntegerDigits@ #, 2] &, IntegerDigits[n, 60]], {n, 3600, 86400}], PalindromeQ] (* Michael De Vlieger, Aug 15 2017 *)
Extensions
Edited by Nathaniel Johnston, May 17 2011
Comments