OFFSET
1,1
COMMENTS
Subsequence of A166080.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
FORMULA
Each number is of the form 2y^2 + 2y + 1.
EXAMPLE
365 is in the sequence because 365 = 2^2+19^2 = 13^2+14^2; in the second representation 14-13=1.
MATHEMATICA
ok[n_] := 2 == Count[ PowersRepresentations[n, 2, 2], _?(! MemberQ[#, 0] &)]; Select[(2*#^2 + 2*# + 1) & /@ Range[100], ok] (* Giovanni Resta, Mar 21 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Carmine Suriano, Mar 21 2014
STATUS
approved