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