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.

A346806 Numbers that are the sum of ten squares in seven or more ways.

This page as a plain text file.
%I A346806 #9 May 10 2024 02:26:54
%S A346806 57,58,60,61,63,64,66,67,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,
%T A346806 84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,
%U A346806 105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120
%N A346806 Numbers that are the sum of ten squares in seven or more ways.
%H A346806 Sean A. Irvine, <a href="/A346806/b346806.txt">Table of n, a(n) for n = 1..10000</a>
%e A346806 58 = 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 7^2
%e A346806    = 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 5^2 + 5^2
%e A346806    = 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 2^2 + 2^2 + 2^2 + 4^2 + 5^2
%e A346806    = 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 3^2 + 3^2 + 3^2 + 5^2
%e A346806    = 1^2 + 2^2 + 2^2 + 2^2 + 2^2 + 2^2 + 2^2 + 2^2 + 2^2 + 5^2
%e A346806    = 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 1^2 + 2^2 + 4^2 + 4^2 + 4^2
%e A346806    = 1^2 + 1^2 + 2^2 + 2^2 + 2^2 + 2^2 + 2^2 + 2^2 + 4^2 + 4^2
%e A346806    = 1^2 + 1^2 + 1^2 + 2^2 + 2^2 + 2^2 + 3^2 + 3^2 + 3^2 + 4^2
%e A346806    = 1^2 + 1^2 + 1^2 + 1^2 + 3^2 + 3^2 + 3^2 + 3^2 + 3^2 + 3^2
%e A346806 so 58 is a term.
%o A346806 (Python)
%o A346806 from itertools import combinations_with_replacement as cwr
%o A346806 from collections import defaultdict
%o A346806 keep = defaultdict(lambda: 0)
%o A346806 power_terms = [x**2 for x in range(1, 1000)]
%o A346806 for pos in cwr(power_terms, 10):
%o A346806     tot = sum(pos)
%o A346806     keep[tot] += 1
%o A346806     rets = sorted([k for k, v in keep.items() if v >= 7])
%o A346806     for x in range(len(rets)):
%o A346806         print(rets[x])
%Y A346806 Cf. A345504, A345555, A346805, A346807.
%K A346806 nonn
%O A346806 1,1
%A A346806 _David Consiglio, Jr._, Aug 04 2021