OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..9000
MAPLE
As:= {}:
for m from 2 to 20 do
acands:= map(t -> rhs(op(t)), [msolve(a*(a+1)=2, 10^m+1)]);
bcands:= map(t -> t*(t+1) mod 10^m, acands);
good:= select(t -> bcands[t]>=10^(m-1), [$1..nops(acands)]);
As:= As union convert(acands[good], set);
od:
sort(convert(As, list)); # Robert Israel, Aug 20 2019
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved