A240562 Integers whose squares are in A000073 (tribonacci numbers).
0, 1, 2, 9, 56, 103
Offset: 1
Examples
9^2 = 81 is in the tribonacci sequence, so 9 is a term.
Programs
-
Mathematica
Select[Sqrt[#]&/@LinearRecurrence[{1,1,1},{0,0,1},200],IntegerQ]// Union (* Harvey P. Dale, Aug 16 2021 *)
-
Sage
def tribs(): a,b,c = 0,0,1 while True: yield a a,b,c = b,c,a+b+c for n in tribs(): m = sqrt(n) if m.is_integer(): print(m) # Manfred Scheucher, Aug 17 2015
Extensions
Zero prepended by Harvey P. Dale, Aug 16 2021
Comments