|
| |
|
|
A086204
|
|
Decimal equivalents of strings in A086884.
|
|
1
| | |
|
|
|
OFFSET
| 2,1
|
|
|
EXAMPLE
| a(5)=10010111 because 10010111 (base 2)=151, 10010111 (base 3)=2281,
10010111 (base 4)=16661 and 10010111 (base 5)=78781 are all prime and 10010111 is
smallest such string.
|
|
|
MATHEMATICA
| a[n_] := (While[b = FromDigits[ IntegerDigits[k, 2]]; Union[ PrimeQ[ Table[ FromDigits[ IntegerDigits[b], i], {i, 2, n}]]] != {True}, k++ ]; b); k = 1; Do[ Print[ a[n]], {n, 2, 10}]
|
|
|
CROSSREFS
| Sequence in context: A152016 A156467 A015167 * A037292 A187024 A028372
Adjacent sequences: A086201 A086202 A086203 * A086205 A086206 A086207
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Richard FitzHugh (fitzhughrichard(AT)hotmail.com), Aug 22 2003
|
|
|
EXTENSIONS
| Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 24 2003
Two more terms added James G. Merickel (merk7(AT)verizon.net), Feb 15 2010
|
| |
|
|
