|
| |
|
|
A155547
|
|
a(n) = prime(n) without prime digits in n.
|
|
1
| |
|
|
2, 7, 13, 19, 23, 29, 31, 43, 53, 61, 67, 173, 179, 193, 199, 223, 227, 281, 283, 311, 317, 337, 347, 409, 419, 433, 443, 457, 461, 463, 467, 491, 503, 521, 523, 541, 547, 569, 577, 593, 599, 601, 607, 619, 641, 647, 653, 809, 811, 827, 839, 857, 859, 941, 947
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Prime digit = 2, 3, 5 or 7.
|
|
|
FORMULA
| a(n)=A000040(A084984(n)). [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 25 2009]
|
|
|
MAPLE
| isA084984 := proc(n) local dgs ; dgs := convert(convert(n, base, 10), set) ; if dgs intersect {2, 3, 5, 7} <> {} then false; else true; fi; end: A084984 := proc(n) option remember ; local a ; if n = 1 then 1; else for a from procname(n-1)+1 do if isA084984(a) then RETURN(a) ; fi; od; fi; end: A155547 := proc(n) ithprime(A084984(n)) ; end: for n from 1 to 80 do printf("%d, ", A155547(n)) ; od: [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 25 2009]
|
|
|
CROSSREFS
| Cf. A000027, A000040.
Sequence in context: A019370 A001966 A140562 * A007821 A156007 A067774
Adjacent sequences: A155544 A155545 A155546 * A155548 A155549 A155550
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Juri-Stepan Gerasimov (2stepan(AT)rambler.ru), Jan 24 2009
|
| |
|
|
