|
%I #39 Mar 10 2023 19:39:10
%S 4,9,6,8,9,9,8,4,6,6,4,8,9,8,8,4,9,6,9,9,9,8,9,4,9,4,4,9,8,6,4,6,8,6,
%T 8,9,9,8,6,8,4,8,4,6,9,8,4,8,8,6,8,6,6,4,9,8,4,4,6,9,8,9,4,8,8,4,8,4,
%U 8,4,9,8,9,6,4,4,6,9,4,8,9,4,9,8,9,6,4,4,8,8,9,6,6,9,4,4,6,8,4
%N Sequence of composite digits as they appear in Pi.
%H Miles Galvin, <a href="/A360004/b360004.txt">Table of n, a(n) for n = 1..10000</a>
%e Pi = 3.14159265358... so we get 4, 9, 6, 8, ...
%t Select[First[RealDigits[N[Pi,225]]],CompositeQ] (* _Stefano Spezia_, Jan 21 2023 *)
%Y Cf. A000796, A002808, A073264, A086385, A086399.
%K nonn,base,easy
%O 1,1
%A _Miles Galvin_, Jan 21 2023
|
