OFFSET
1,1
REFERENCES
Popular Computing (Calabasas, CA), Z-Sequences, Vol. 4 (No. 42, Sep 1976), pp. 12-16.
LINKS
Popular Computing (Calabasas, CA), Z-Sequences, continued. Annotated and scanned copy of pages 14, 15, 16, 18 of Vol. 5 (No. 56, Nov 1977).
MAPLE
t1:=[];
M:=200000:
a:=1: b:=1:
for n from 3 to M do c:=abs(2*a+b-n);
if c=0 then t1:=[op(t1), n]; fi;
a:=b; b:=c; od:
[seq(t1[n], n=1..nops(t1))]; # N. J. A. Sloane, Apr 16 2015
PROG
(Python)
A051202_list, a2, a1 = [], 1, 1
for n in range(3, 10**13):
a = abs(a1+2*a2-n)
if a == 0:
A051202_list.append(n)
a1, a2 = a, a1 # Chai Wah Wu, Apr 19 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
a(31)-a(34) from Chai Wah Wu, Apr 19 2015
a(35)-a(36) from Chai Wah Wu, May 07 2015
STATUS
approved