OFFSET
2,1
MAPLE
A007953 := proc(n) add(i, i=convert(n, base, 10)) ; end: A110741 := proc(nmin) local a, n, p ; a := [] ; n := 2; while nops(a) < nmin do p := 2 ; while p < 10^n do if A007953(p) = n then a := [op(a), p] ; fi ; p := nextprime(p) ; od ; n := n+1 ; od; RETURN(a) ; end: A110741(40) ; # R. J. Mathar, Aug 17 2007
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Aug 10 2005
EXTENSIONS
More terms from R. J. Mathar, Aug 17 2007
STATUS
approved