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.

A339214 Factorial-base self numbers: numbers not of the form k + A034968(k).

This page as a plain text file.
%I A339214 #19 Aug 08 2025 03:24:31
%S A339214 1,4,11,18,36,43,61,68,86,93,111,118,125,132,139,157,164,182,189,207,
%T A339214 214,232,239,246,253,260,278,285,303,310,328,335,353,360,367,374,381,
%U A339214 399,406,424,431,449,456,474,481,488,495,502,520
%N A339214 Factorial-base self numbers: numbers not of the form k + A034968(k).
%C A339214 Analogous to self numbers (A003052) using factorial base representation (A007623) instead of decimal expansion.
%C A339214 The numbers of terms that do not exceed 10^k, for k = 0, 1, ..., are 1, 2, 10, 90, 878, 8749, 87455, 874499, 8744934, 87449296, 874492907, ... . Apparently, the asymptotic density of this sequence exists and equals 0.08744929... . - _Amiram Eldar_, Aug 08 2025
%D A339214 József Sándor and Borislav Crstici, Handbook of Number theory II, Kluwer Academic Publishers, 2004, Chapter 4, p. 384-386.
%H A339214 Amiram Eldar, <a href="/A339214/b339214.txt">Table of n, a(n) for n = 1..10000</a>
%H A339214 Rosalind Guaraldo, <a href="https://web.archive.org/web/2024*/https://www.fq.math.ca/Scanned/16-6/guaraldo.pdf">On the Density of the Image Sets of Certain Arithmetic Functions - III</a>, The Fibonacci Quarterly, Vol. 16, No. 6 (1978), pp. 481-488.
%H A339214 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/SelfNumber.html">Self Number</a>.
%H A339214 Wikipedia, <a href="https://en.wikipedia.org/wiki/Factorial_number_system">Factorial number system</a>.
%H A339214 Wikipedia, <a href="http://en.wikipedia.org/wiki/Self_number">Self number</a>.
%H A339214 <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>
%t A339214 max = 6; s[n_] := n + Plus @@ IntegerDigits[n, MixedRadix[Range[max, 2, -1]]]; m = max!; Complement[Range[m], Array[s, m]]
%Y A339214 Cf. A003052, A007623, A010061, A010064, A010067, A010070, A034968, A118363, A339211, A339212, A339213, A339215.
%Y A339214 Cf. also A219650, A219658, A230412.
%K A339214 nonn,base
%O A339214 1,2
%A A339214 _Amiram Eldar_, Nov 27 2020