cp's OEIS Frontend

A053065 Alternately append n-th prime to beginning or end of previous term.

%I A053065 #12 Sep 27 2013 21:11:21
%S A053065 2,32,325,7325,732511,13732511,1373251117,191373251117,19137325111723,
%T A053065 2919137325111723,291913732511172331,37291913732511172331,
%U A053065 3729191373251117233141,433729191373251117233141,43372919137325111723314147
%N A053065 Alternately append n-th prime to beginning or end of previous term.
%D A053065 Felice Russo, A set of new Smarandache functions, sequences and conjectures in number theory, American Research Press 2000
%p A053065 read("transforms"):
%p A053065 A053065 := proc(n)
%p A053065     option remember;
%p A053065     if n = 1 then
%p A053065         2;
%p A053065     else
%p A053065         p := ithprime(n) ;
%p A053065         if type(n,'even') then
%p A053065             digcat2(p,procname(n-1)) ;
%p A053065         else
%p A053065             digcat2(procname(n-1),p) ;
%p A053065         end if;
%p A053065     end if;
%p A053065 end proc:
%p A053065 seq(A053065(n),n=1..15) ; # _R. J. Mathar_, Sep 27 2013
%K A053065 base,easy,nonn,less
%O A053065 1,1
%A A053065 _Felice Russo_, Feb 25 2000