|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
REFERENCES
|
Felice Russo, A set of new Smarandache functions, sequences and conjectures in number theory, American Research Press 2000
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|