%I #27 Apr 14 2015 11:12:05
%S 25,28,31,35,40,61,73,107,114,130,135,138,148,151,152,170,188,192,195,
%T 202,209,218,222,231,234,238,263,265,290,297,315,378,423,432,436,444,
%U 448,457,470,481,485,489,490,526,537,546
%N Numbers n such that the n-th decimal digit of e = 1 + the n-th decimal digit of Pi.
%H Carmine Suriano, <a href="/A254226/b254226.txt">Table of n, a(n) for n = 1..252</a>
%e 31 is in the sequence since the 31st decimal digit of e is 6 and the 31st decimal digit of Pi is 5.
%t nn = 550; rdpi = RealDigits[Pi, 10, nn][[1]]; rde = RealDigits[E, 10, nn][[1]]; Select[ Range[2, nn], 1 + rdpi[[#]] == rde[[#]] &] - 1 (* _Robert G. Wilson v_, Feb 08 2015 *)
%Y Cf. A000796, A001113, A068394.
%K nonn,base
%O 1,1
%A _Carmine Suriano_, Jan 27 2015
|