OFFSET
1,1
COMMENTS
See A188014.
There is (conjecturally) a connection a(1+n) = f(n) where f(n) = 3*n +2 +2*floor(n*sqrt 2) is defined in A120861. Tested numerically up to n=40000. - R. J. Mathar, Jul 22 2020
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MAPLE
A188038 := proc(n)
if n = 1 then
1;
else
floor(n*sqrt(2))-floor((n-2)*sqrt(2))-2 ;
end if;
end proc:
isA188039 := proc(n)
if A188038(n) = 0 then
true;
else
false;
end if;
end proc:
A188039 := proc(n)
option remember;
if n = 1 then
2;
else
for a from procname(n-1)+1 do
if isA188039(a) then
return a;
end if;
end do:
end if;
end proc: # R. J. Mathar, Jul 22 2020
MATHEMATICA
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 19 2011
STATUS
approved