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

Author

Juri-Stepan Gerasimov, Feb 01 2009

Keywords

• nonn
• base

Crossrefs

Cf. A000040, A092620.

Programs

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 *)

Formula

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

Extensions

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