prog.sf 671 B

123456789101112131415161718192021222324252627
  1. #!/usr/bin/ruby
  2. # a(1) = a(2) = 1, a(n) is largest prime factor of concatenation of a(n - 2) and a(n - 1)
  3. # https://oeis.org/A034969
  4. include('../../../factordb/auto.sf')
  5. func a(n) is cached {
  6. return 1 if (n == 1)
  7. return 1 if (n == 2)
  8. gpf(Num(join('', a(n-2), a(n-1))))
  9. }
  10. var fh = File('bfile.txt').open_w
  11. fh.autoflush(true)
  12. for n in (1..10000) {
  13. var row = "#{n} #{a(n)}"
  14. say row
  15. fh.say(row)
  16. }
  17. __END__
  18. not FF: 7126739067843933020000487256784061533502292405050614853348381662921208997064469253693331951904248670646197372897799059990001235916032762454201142581635442146548653091082552430069916765671381205795126681208177737489544209036771593