OFFSET
1,1
FORMULA
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
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Feb 01 2009
EXTENSIONS
Edited by N. J. A. Sloane, Feb 02 2009
STATUS
approved