|
| |
|
|
A034303
|
|
Prime; becomes nonprime if any digit deleted (zeros not allowed in the number).
|
|
3
| |
|
|
11, 19, 41, 61, 89, 227, 251, 257, 277, 281, 349, 449, 499, 521, 557, 577, 587, 727, 757, 787, 821, 827, 857, 877, 881, 887, 991, 1117, 1129, 1171, 1187, 1259, 1289, 1423, 1447, 1453, 1471, 1483, 1543, 1553, 1559, 1583, 1621, 1669, 1721, 1741, 1747
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=1..1000
|
|
|
PROG
| (Haskell)
import Data.List (inits, tails)
a034303 n = a034303_list !! (n-1)
a034303_list = filter f $ drop 4 a038618_list where
f x = all (== 0) $ map (a010051 . read) $
zipWith (++) (inits $ show x) (tail $ tails $ show x)
-- Reinhard Zumkeller, Dec 17 2011
|
|
|
CROSSREFS
| Cf. A034302, A034304, A034305.
Cf. A010051, A038618.
Sequence in context: A034844 A092627 A152313 * A140506 A165944 A100557
Adjacent sequences: A034300 A034301 A034302 * A034304 A034305 A034306
|
|
|
KEYWORD
| base,nonn,nice
|
|
|
AUTHOR
| David W. Wilson (davidwwilson(AT)comcast.net)
|
|
|
EXTENSIONS
| Definition corrected by T. D. Noe, Apr 02 2008
|
| |
|
|
