[go: up one dir, main page]

login
A053066
Alternately append n-th prime to end or beginning of previous term.
0
2, 23, 523, 5237, 115237, 11523713, 1711523713, 171152371319, 23171152371319, 2317115237131929, 312317115237131929, 31231711523713192937, 4131231711523713192937, 413123171152371319293743
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
Sequence in context: A054260 A053160 A167416 * A167417 A053161 A090731
KEYWORD
easy,nonn,base,less
AUTHOR
Felice Russo, Feb 25 2000
EXTENSIONS
More terms from Stefan Steinerberger, Jun 17 2007
STATUS
approved