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.

A135102 Digital sum (base the n-th prime) of Fibonacci(n).

This page as a plain text file.
%I A135102 #12 Sep 24 2016 04:28:00
%S A135102 1,1,2,3,5,8,13,3,12,27,29,36,33,41,58,51,31,64,89,45,74,83,39,168,
%T A135102 145,193,170,129,149,104,211,289,274,175,257,252,125,161,318,347,447,
%U A135102 316,317,285,450,107,253,648,363,301,498,409,773,522,429,515,782,649,641
%N A135102 Digital sum (base the n-th prime) of Fibonacci(n).
%H A135102 G. C. Greubel, <a href="/A135102/b135102.txt">Table of n, a(n) for n = 1..1000</a>
%F A135102 a(n) = ds_prime(n)(Fib(n)), where ds_prime(n) = digital sum base the n-th prime.
%F A135102 a(n) = Fibonacci(n) - (prime(n)-1)*Sum{k>0} ( floor(Fibonacci(n)/prime(n)^k) ).
%e A135102 a(2) = ds_prime(2)(Fib(2)) = ds_3(1) = 1;
%e A135102 a(10) = ds_prime(10)(55) = ds_29(55) = 1+26 = 27.
%t A135102 Table[Total[IntegerDigits[Fibonacci[n],Prime[n]]],{n,60}] (* _Harvey P. Dale_, May 05 2013 *)
%o A135102 (PARI) a(n) = vecsum(digits(fibonacci(n), prime(n))); \\ _Michel Marcus_, Sep 24 2016
%Y A135102 Cf. A000040, A000045, A007953, A054899, A075771, A131451, A133620, A133900, A134599.
%K A135102 nonn,base
%O A135102 1,3
%A A135102 _Hieronymus Fischer_, Dec 24 2007