cp's OEIS Frontend

A089933 Concatenate the first n odd primes.

%I A089933 #26 Sep 08 2022 08:45:12
%S A089933 3,35,357,35711,3571113,357111317,35711131719,3571113171923,
%T A089933 357111317192329,35711131719232931,3571113171923293137,
%U A089933 357111317192329313741,35711131719232931374143,3571113171923293137414347,357111317192329313741434753,35711131719232931374143475359
%N A089933 Concatenate the first n odd primes.
%C A089933 Except for a(1) = 3, these numbers are not prime for n < 10000. See A089948.
%H A089933 Robert Israel, <a href="/A089933/b089933.txt">Table of n, a(n) for n = 1..298</a>
%p A089933 a[1]:= 3;
%p A089933 for n from 2 to 100 do
%p A089933   p:= ithprime(n+1);
%p A089933   a[n]:= 10^(1+ilog10(p))*a[n-1]+p
%p A089933 od:
%p A089933 seq(a[i],i=1..100); # _Robert Israel_, Aug 25 2016
%t A089933 Table[FromDigits[Flatten[IntegerDigits[Prime[Range[n] + 1]]]],{n, 20}] (* _Vincenzo Librandi_, Nov 30 2015 *)
%o A089933 (PARI) concatprime(n) = { y=""; forprime(x=3,n, y=concat(Str(y),Str(x)); z=eval(y); print1(z",") ) }
%o A089933 (Magma) [Seqint(Reverse(&cat[Reverse(Intseq(NthPrime(k+1))): k in [1..n]])): n in [1..17]]; // _Vincenzo Librandi_, Nov 30 2015
%Y A089933 Cf. A019518, A086043, A089948.
%K A089933 nonn,base
%O A089933 1,1
%A A089933 _Cino Hilliard_, Jan 11 2004
%E A089933 Offset changed by _Robert Israel_, Aug 25 2016