login
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
OFFSET
1,1
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
Sequence in context: A319632 A060647 A320353 * A125557 A007455 A034729
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Feb 02 2009
STATUS
approved