cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A101806 Numbers which are the sum of two positive cubes and divisible by 23.

This page as a plain text file.
%I A101806 #10 Jul 24 2022 23:06:28
%S A101806 3059,3197,3473,3887,4439,5129,5957,6923,8027,9269,10649,24334,24472,
%T A101806 24886,25576,26542,27784,29302,31096,33166,35512,38134,41032,44206,
%U A101806 47656,51382,55384,59662,64216,69046,74152,79534,82179,82593,83421
%N A101806 Numbers which are the sum of two positive cubes and divisible by 23.
%H A101806 Vincenzo Librandi, <a href="/A101806/b101806.txt">Table of n, a(n) for n = 1..1000</a>
%t A101806 upto[n_] := Block[{t}, Union@ Reap[ Do[If[Mod[t = x^3 + y^3, 23] == 0, Sow@t], {x, n^(1/3)}, {y, Min[x, (n - x^3)^(1/3)]}]][[2, 1]]]; upto[84000] (* _Giovanni Resta_, Jun 12 2020 *)
%t A101806 Select[Total/@Tuples[Range[50]^3,2],Divisible[#,23]&]//Union (* _Harvey P. Dale_, Jul 24 2022 *)
%K A101806 nonn,easy
%O A101806 1,1
%A A101806 Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Jan 27 2005