prog.sf 915 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455
  1. #!/usr/bin/ruby
  2. # a(n) is the index of the smallest tribonacci number (A000073) with exactly n prime factors (counted with multiplicity).
  3. # https://oeis.org/A359878
  4. # Known terms:
  5. # 2, 4, 5, 9, 8, 17, 13, 52, 16, 40, 36, 32, 62, 88, 96, 144, 112
  6. # a(22) > 464.
  7. # a(23) > 464.
  8. include("../../../factordb/auto.sf")
  9. func a(n, from=1) {
  10. for k in (from..Inf) {
  11. var t = fib(k,3)
  12. say "[#{n},#{k}] Checking: #{t}"
  13. if (try { bigomega(t) == n } catch { t.is_almost_prime(n) }) {
  14. #if (t.is_almost_prime(n)) {
  15. return k
  16. }
  17. }
  18. }
  19. say a(22, 465)
  20. #say a(23, 445)
  21. #~ for n in (0..100) {
  22. #~ say "a(#{n}) = #{a(n)}"
  23. #~ }
  24. __END__
  25. a(0) = 2
  26. a(1) = 4
  27. a(2) = 5
  28. a(3) = 9
  29. a(4) = 8
  30. a(5) = 17
  31. a(6) = 13
  32. a(7) = 52
  33. a(8) = 16
  34. a(9) = 40
  35. a(10) = 36
  36. a(11) = 32
  37. a(12) = 62
  38. a(13) = 88
  39. a(14) = 96
  40. a(15) = 144
  41. a(16) = 112
  42. a(17) = 221
  43. a(18) = 256
  44. a(19) = 208
  45. a(20) = 400
  46. a(21) = 192