A155989 List of numbers prime(k) as k runs through the numbers with a single prime digit.

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

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