login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A155989 List of numbers prime(k) as k runs through the numbers with a single prime digit. 1
3, 5, 11, 17, 37, 41, 47, 59, 71, 73, 89, 101, 107, 109, 113, 127, 139, 151, 163, 167, 181, 191, 197, 211, 229, 233, 251, 263, 271, 277, 293, 307, 313, 331, 349, 353, 373, 383, 397, 401, 421, 431, 439, 449, 479, 487, 499, 509, 557, 563, 571, 587, 613, 617, 631 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..55.

FORMULA

a(n) = A000040(A092620(n)). - R. J. Mathar, May 15 2010

MAPLE

numPdgs := proc(n) local f, d ; f := 0 ; for d in convert(n, base, 10) do if d in {2, 3, 5, 7} then f :=f+1; end if; end do; f ; end proc:

A092620 := proc(n) option remember; if n = 1 then 2; else for a from procname(n-1)+1 do if numPdgs(a) = 1 then return a; end if; end do: end if; end proc:

A155989 := proc(n) ithprime(A092620(n)) ; end proc: seq(A155989(n), n=1..120) ; # R. J. Mathar, May 15 2010

MATHEMATICA

Prime[#]&/@Select[Range[150], Count[IntegerDigits[#], _?PrimeQ]==1&] (* Harvey P. Dale, Feb 26 2013 *)

CROSSREFS

Cf. A000040, A092620.

Sequence in context: A319632 A060647 A320353 * A125557 A007455 A034729

Adjacent sequences:  A155986 A155987 A155988 * A155990 A155991 A155992

KEYWORD

nonn,base

AUTHOR

Juri-Stepan Gerasimov, Feb 01 2009

EXTENSIONS

Edited by N. J. A. Sloane, Feb 02 2009

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 20 01:58 EDT 2019. Contains 327207 sequences. (Running on oeis4.)