The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A051218 Numbers of the form 7^x-y^2 >= 0. 3

%I

%S 0,1,3,6,7,13,19,24,33,40,45,48,49,54,87,97,118,147,166,174,192,199,

%T 222,243,262,279,285,294,307,318,327,334,339,342,343,376,423,465,552,

%U 637,678,685,720,801,880,894,931,957,1032,1105,1176,1182,1245,1312

%N Numbers of the form 7^x-y^2 >= 0.

%t max = 2000; Clear[f]; f[m_] := f[m] = Select[Table[7^x - y^2, {x, 0, m}, {y, 0, Ceiling[7^(x/2)]}] // Flatten // Union, 0 <= # <= max &]; f[1]; f[m = 2]; While[f[m] != f[m - 1], m++]; Print["m = ", m]; A051218 = f[m] (* _Jean-François Alcover_, May 14 2017 *)

%Y Cf. A201123.

%K nonn

%O 1,3

%A _David W. Wilson_

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 21 20:10 EDT 2021. Contains 347598 sequences. (Running on oeis4.)