A272268 Records in A001481 that are more than twice the previous record.
1, 4, 9, 20, 41, 85, 173, 349, 701, 1405, 2813, 5629, 11261, 22525, 45053, 90113, 180232, 360466, 720937, 1441877, 2883761, 5767525, 11535053, 23070112, 46140228, 92280457, 184560921, 369121849, 738243700, 1476487402, 2952974809, 5905949620, 11811899241
Offset: 1
Keywords
Links
- M. Sinan Kul, PARI/GP code
Crossrefs
Cf. A001481.
Programs
-
Mathematica
NestList[SelectFirst[Range[2 # + 1, 5 #], SquaresR[2, #] > 0 &] &, 1, 25] (* Michael De Vlieger, Apr 25 2016, Version 10 *)
Comments