OFFSET
1,2
LINKS
Ray Chandler, Table of n, a(n) for n = 1..10000
MATHEMATICA
A[s_Integer] := With[{s6 = StringPadLeft[ToString[s], 6, "0"]}, Cases[ Import["https://oeis.org/A" <> s6 <> "/b" <> s6 <> ".txt", "Table"], {_, _}][[All, 2]]];
A046086 = A@046086;
A046087 = A@046087;
a /@ Range[10000]; (* Jean-François Alcover, Mar 07 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Jun 24 2006
EXTENSIONS
Edited and extended by Ray Chandler, Apr 10 2010
STATUS
approved