Annual appeal: Please make a donation to keep the OEIS running!
Over 6000 articles have referenced us, often saying "we discovered this result with the help of the OEIS".
A102700 := proc(n) option remember; if n = 1 then 1; else for a from procname(n-1)+1 do if isprime(10*a+9) then return a; end if; end do: end if; end proc:
A102342 := proc(n) option remember; if n = 1 then 0; else for a from procname(n-1)+1 do if isprime(10*a+7) then return a; end if; end do: end if; end proc: