Finding square numbers that are also triangular numbers

SqTri.R

# Finding square numbers that are also triangular numbers

# This snippet of code has been inspired by Matt Parker's book: Things to make and do in the fourth dimension, Chapter 3, pg. 50

# Square numbers
SqNum <- function(to, from = 1) {
  x <- NULL
  for(i in seq(from = from, to = to)) {
    x[i] <- i^2
  } 
  x <- na.omit(x)
  attributes(x) <- NULL
  return(x)
}

# Triangular numbers
TriNum <- function(to, from = 1) {
  x <- NULL
  for(i in seq(from = from, to = to)) {
    x[i] <- (i*(i+1))/2
  } 
  x <- na.omit(x)
  attributes(x) <- NULL
  return(x)
}

# Compare and find matches between square and triangular numbers
SqTri <- function(to, from = 1) {
  sqn <- NULL
  trin <- NULL
  
  sqn <- SqNum(to = to, from = from)
  trin <- TriNum(to = to, from = from)
  
  res <- trin[trin %in% sqn]
  print(res)
  
}