|
Search: id:A069566
|
|
|
| A069566 |
|
a(n) = smallest value of k such that the concatenation 1,n,n^2,..., n^(k-1), n^k,n^(k-1),...n^2,n,1 is a prime. |
|
+0
1
|
| |
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Program and terms from Robert G. Wilson v.
|
|
EXAMPLE
|
a(2) = 2 as 12421 is a prime.
|
|
MATHEMATICA
|
Do[k = 0; While[a = Table[n^i, {i, 0, k}]; b = ToExpression[ StringJoin[ ToString /@ Join[a, Drop[ Reverse[a], 1]]]]; !PrimeQ[b], k++ ]; Print[b], {n, 2, 10} ]
|
|
CROSSREFS
|
Sequence in context: A082272 A107049 A074956 this_sequence A066818 A005730 A112284
Adjacent sequences: A069563 A069564 A069565 this_sequence A069567 A069568 A069569
|
|
KEYWORD
|
more,nonn,base
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Mar 24 2002
|
|
|
Search completed in 0.002 seconds
|
