OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MAPLE
A001043 := proc(n) ithprime(n)+ithprime(n+1) ; end proc:
isA014574 := proc(n) local k ; for k from 1 do av := A014574(k) ; if av> n then return false; elif av=n then return true; end if; end do; end proc:
for n from 1 to 800 do if isA014574(A001043(n) ) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Apr 30 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 30 2010
EXTENSIONS
Corrected (95 replaced by 85, 394 inserted) and extended by R. J. Mathar, Apr 30 2010
STATUS
approved