cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A250073 Powers of 2 written in base 60, concatenating the decimal values of the sexagesimal digits.

This page as a plain text file.
%I A250073 #14 Feb 01 2015 19:16:35
%S A250073 1,2,4,8,16,32,104,208,416,832,1704,3408,10816,21632,43304,90608,
%T A250073 181216,362432,1124904,2253808,4511616,9423232,19250504,38501008,
%U A250073 117402016,235204032,510412104,1021224208,2042452416,4125304832,12251013704,24542031408,53124062816
%N A250073 Powers of 2 written in base 60, concatenating the decimal values of the sexagesimal digits.
%C A250073 Each sexagesimal digit appears as a pair of decimal digits as on a digital clock. Any leading zeros are truncated. Thus decimal 64 appears as "104" and not "0104".
%e A250073 a(7) = 208, since 2^7 = 128 = 2 sixties plus 8, thus 2:08 in clock-like notation, which becomes 208 when restricted to the numeric characters.
%t A250073 a250073[n_Integer] :=
%t A250073 FromDigits@
%t A250073   StringJoin[
%t A250073    If[# < 10, StringJoin["0", ToString[#]], ToString[#]] & /@
%t A250073 IntegerDigits[2^n, 60]]; a250073 /@ Range[60] (* _Michael De Vlieger_, Nov 11 2014 *)
%o A250073 (PARI) a(n) = {d = digits(2^n, 60); s = ""; for (i=1, #d, if (d[i] < 10, s = concat(s, "0")); s = concat(s, Str(d[i]))); eval(s);} \\ _Michel Marcus_, Nov 12 2014
%Y A250073 Cf. A000079.
%K A250073 nonn,base
%O A250073 0,2
%A A250073 _Michael De Vlieger_, Nov 11 2014