login
Append n-th prime to previous term, reverse alternate terms.
1

%I #10 Jul 10 2016 13:34:12

%S 2,32,235,7532,235711,13117532,2357111317,191713117532,23571113171923,

%T 2923191713117532,235711131719232931,37312923191713117532,

%U 2357111317192329313741,434137312923191713117532,23571113171923293137414347,5347434137312923191713117532

%N Append n-th prime to previous term, reverse alternate terms.

%D Felice Russo, A set of new Smarandache functions, sequences and conjectures in number theory, American Research Press 2000

%H Harvey P. Dale, <a href="/A053053/b053053.txt">Table of n, a(n) for n = 1..299</a>

%t Module[{nn=20,prs},prs=Prime[Range[nn]];Table[FromDigits[ Flatten[ IntegerDigits /@ If[EvenQ[n],Reverse[Take[prs,n]],Take[prs,n]]]],{n,nn}]] (* _Harvey P. Dale_, Jul 10 2016 *)

%K easy,base,nonn,less

%O 1,1

%A _Felice Russo_, Feb 25 2000

%E Corrected and extended by _Harvey P. Dale_, Jul 10 2016