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.

A186192 First digit of pentanacci numbers A000322.

This page as a plain text file.
%I A186192 #15 Feb 09 2017 11:56:34
%S A186192 1,1,1,1,1,5,9,1,3,6,1,2,4,9,1,3,7,1,2,5,1,2,4,8,1,3,6,1,2,4,9,1,3,7,
%T A186192 1,2,5,1,2,4,8,1,3,6,1,2,4,9,1,3,7,1,2,5,1,2,4,8,1,3,6,1,2,4,9,1,3,6,
%U A186192 1,2,5,1,2,4,7,1,3,6,1,2,4,8,1,3,6,1,2,5,1,2,3,7,1,2,5,1,2,4,8,1,3,6,1,2,5
%N A186192 First digit of pentanacci numbers A000322.
%C A186192 Sequence obeys Benford law about distribution of first digits in a sequence P(n)=Log(1+1/n).
%H A186192 Indranil Ghosh, <a href="/A186192/b186192.txt">Table of n, a(n) for n = 1..10000</a>
%H A186192 <a href="/index/Be#Benford">Index entries for sequences related to Benford's law</a>
%e A186192 a(15)=1 since Penta(15)=1921.
%t A186192 t = {1, 1, 1, 1, 1}; Do[AppendTo[t, t[[-1]] + t[[-2]] + t[[-3]] + t[[-4]] + t[[-5]]], {100}]; Table[IntegerDigits[i][[1]], {i, t}]
%t A186192 First[IntegerDigits[#]]&/@LinearRecurrence[{1,1,1,1,1},{1,1,1,1,1},110] (* _Harvey P. Dale_, Mar 28 2013 *)
%Y A186192 Cf. A000322.
%K A186192 nonn,base
%O A186192 1,6
%A A186192 _Carmine Suriano_, Feb 14 2011