OFFSET
1,3
COMMENTS
A000161(a(n)) = 1. [Reinhard Zumkeller, Aug 16 2011]
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) = A125021(n)/2.
MATHEMATICA
Select[Range[0, 200], Length@PowersRepresentations[#, 2, 2]==1&] (* Giorgos Kalogeropoulos, Mar 21 2021 *)
PROG
(Haskell)
import Data.List (elemIndices)
a125022 n = a125022_list !! (n-1)
a125022_list = elemIndices 1 a000161_list
-- Reinhard Zumkeller, Aug 16 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Nov 16 2006
EXTENSIONS
Name edited by Giorgos Kalogeropoulos, Mar 21 2021
STATUS
approved