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.

A063275 Numbers that require three powerful numbers (definition 1) to sum to them.

This page as a plain text file.
%I A063275 #12 Feb 12 2023 03:18:18
%S A063275 3,6,11,14,19,21,22,30,38,39,42,46,47,51,55,56,60,62,66,67,69,70,71,
%T A063275 75,77,78,79,83,84,86,92,93,94,95,102,103,105,107,110,114,115,118,120,
%U A063275 123,131,138,139,142,143,147,151,154,156,158,159,163,165,166,167,168,175
%N A063275 Numbers that require three powerful numbers (definition 1) to sum to them.
%H A063275 Amiram Eldar, <a href="/A063275/b063275.txt">Table of n, a(n) for n = 1..10000</a>
%e A063275 The powerful numbers (A001694) start 1, 4, 8, 9, ... Now 11 = 1+1+9 and is not the sum of fewer terms, so 11 is in the sequence.
%t A063275 With[{m = 200}, pow = Select[Range[m], # == 1 || Min[FactorInteger[#][[;; , 2]]] > 1 &]; s2 = Select[Union[Plus @@@ Tuples[pow, {2}]], # <= m &]; s3 = Select[Union[Plus @@@ Tuples[pow, {3}]], # <= m &]]; Complement[s3, pow, s2] (* _Amiram Eldar_, Feb 12 2023 *)
%Y A063275 Cf. A001694, A056828, A063274.
%K A063275 nonn
%O A063275 1,1
%A A063275 _Jud McCranie_, Jul 13 2001
%E A063275 Offset corrected by _Amiram Eldar_, Feb 12 2023