|
| |
|
|
A074831
|
|
Number of binary reversal primes less than 10^n.
|
|
0
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| MathPages counts 1 as being a binary reversal prime whereas the title would exclude it, therefore their count exceeds this count by one.
|
|
|
LINKS
| MathPages, Reflective and Cyclic Sets of Primes
|
|
|
MATHEMATICA
| f[n_] := FromDigits[Reverse[IntegerDigits[n, 2]], 2]; NextPrim[n_] := Block[{k = n + 1}, While[ ! PrimeQ[k], k++ ]; k]; c = 0; k = 1; Do[ While[k = NextPrim[k]; k < 10^n, If[ PrimeQ[ f[k]], c++ ]]; k--; Print[c], {n, 16}]
|
|
|
CROSSREFS
| Sequence in context: A015529 A000948 A165960 * A203357 A000917 A025535
Adjacent sequences: A074828 A074829 A074830 * A074832 A074833 A074834
|
|
|
KEYWORD
| base,hard,more,nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 09 2002
|
| |
|
|
