OFFSET
1,1
REFERENCES
Felice Russo, A set of new Smarandache functions, sequences and conjectures in number theory, American Research Press 2000
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
easy,nonn,base,less
AUTHOR
Felice Russo, Feb 25 2000
EXTENSIONS
More terms from Stefan Steinerberger, Jun 17 2007
STATUS
approved