%I #17 Feb 17 2021 07:42:02
%S 1,18,43,47,50,78,79,88,102,104,112,123,129,169,199,225,226,228,249,
%T 254,259,270,276,281,283,286,292,302,313,315,318,325,330,340,345,355,
%U 360,381,384,399,407,415,426,436,454,459,462,464,471,503,515,516,520
%N Numbers k whose last digit is the k-th digit of Pi.
%C Let d(n) be the n-th digit of Pi=3.14159... so d(1)=1, d(2)=4 etc. d(123)=3 and 3 is the last digit of 123 hence 123 is in the sequence.
%t With[{pids=Rest[RealDigits[Pi,10,610][[1]]]},Transpose[Select[Table[ {n,First[Take[pids,{n,n}]]},{n,600}],Mod[First[#],10]==Last[#]&]][[1]]] (* _Harvey P. Dale_, Sep 15 2011 *)
%Y Cf. A000796 (Pi), A067757, A067789.
%K easy,nonn,base
%O 1,2
%A _Benoit Cloitre_, Mar 07 2002
|