|
%I #11 Aug 26 2015 01:41:49
%S 2,23,523,5237,115237,11523713,1711523713,171152371319,23171152371319,
%T 2317115237131929,312317115237131929,31231711523713192937,
%U 4131231711523713192937,413123171152371319293743
%N Alternately append n-th prime to end or beginning of previous term.
%D Felice Russo, A set of new Smarandache functions, sequences and conjectures in number theory, American Research Press 2000
%t a = {2}; For[n = 2, n < 30, n++, If[EvenQ[n], AppendTo[a, FromDigits[ Join[IntegerDigits[a[[ -1]]],IntegerDigits[Prime[n]]]]], AppendTo[a, FromDigits[Join[ IntegerDigits[Prime[n]], IntegerDigits[a[[ -1]]]]]]]]; a (* _Stefan Steinerberger_, Jun 17 2007 *)
%K easy,nonn,base,less
%O 1,1
%A _Felice Russo_, Feb 25 2000
%E More terms from _Stefan Steinerberger_, Jun 17 2007
|
