|
| |
|
|
A155053
|
|
Primes n with nonprime smallest digit of prime(n).
|
|
0
| |
|
|
5, 7, 11, 13, 19, 29, 31, 37, 41, 43, 47, 53, 67, 79, 83, 89, 97, 101, 113, 127, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 347, 349, 353, 359, 379, 397, 409, 421, 431, 433, 439, 443, 449, 467, 479, 491, 523, 541, 557, 563, 569, 571, 577, 601, 613, 617, 619, 641, 643, 647, 653, 673, 677, 683, 691, 701, 709, 719, 727, 743, 751, 757, 761, 769
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| If n=5=prime and 11=prime(5), then 1=1=nonprime and 5=a(1). If n=7=prime and 17=prime(7), then nonprime=1<7 and 7=a(2). If n=11=prime and 31=prime(11), then 3>1=nonprime and 11=a(3), etc.
|
|
|
MATHEMATICA
| Select[Prime[Range[150]], !PrimeQ[Min[IntegerDigits[Prime[#]]]]&]
|
|
|
CROSSREFS
| Cf. A000040.
Sequence in context: A180950 A112397 A081759 * A152468 A088664 A023219
Adjacent sequences: A155050 A155051 A155052 * A155054 A155055 A155056
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Juri-Stepan Gerasimov (2stepan(AT)rambler.ru), Jan 19 2009
|
|
|
EXTENSIONS
| Corrected (19 inserted, 1673 replaced by 167) by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), May 05 2010
Additional terms provided and Mathematica program provided by Harvey P. Dale, Nov. 25, 2010
|
| |
|
|
