%I #8 Mar 05 2019 00:07:00
%S 6,8,1,1,1,1,2,2,2,2,2,3,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,7,8,8,9,9,9,9,
%T 1,4,6,0,1,1,1,7,1,1,1,3,8,3,1,5,1,1,1,1,1,1,1,3,5,1,8,1,8,1,0,1,7,0,
%U 1,5,1,1,2,5,8,2,2,5,2,9,2,4,2,8,0,2,2,8,2,1,2,2,2,2,6,2,2,2,5,2,5,2,2,2,5
%N The prime(n)-th digit of the concatenated composites.
%C The concatenated composites are A129808, the initial 1 removed.
%F a(n) = A129808(prime(n)+1).
%p a129808 := [1 ] : for n from 4 to 400 do if not isprime(n) then a129808 := [op(a129808), op(ListTools[Reverse](convert(n,base,10))) ] ; fi; od:
%p for n from 1 do p := ithprime(n) ; printf("%d,", op(p+1,a129808) ) ; od: # _R. J. Mathar_, Aug 03 2009
%t nn=700;With[{c=Flatten[IntegerDigits/@Complement[Range[4,nn],Prime[Range[ PrimePi[nn]]]]]}, Flatten[Table[Take[c,{n,n}],{n,Prime[Range[ PrimePi[ nn]]]}]]] (* _Harvey P. Dale_, Nov 22 2013 *)
%Y Cf. A000040, A002808, A154513, A154520.
%K nonn,base
%O 1,1
%A _Juri-Stepan Gerasimov_, Jan 11 2009
%E Edited and corrected by _R. J. Mathar_, Aug 03 2009
|