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.

A209303 Numbers of the form x^2 + SumOfSquaredDigits(x).

This page as a plain text file.
%I A209303 #15 Jan 25 2021 19:33:20
%S A209303 2,8,18,32,50,72,98,101,123,128,149,162,179,213,251,293,339,389,404,
%T A209303 443,446,492,542,596,654,716,782,852,909,926,971,1037,1107,1181,1259,
%U A209303 1341,1427,1517,1611,1616,1698,1784,1874,1968,2066,2168,2274,2384,2498,2525
%N A209303 Numbers of the form x^2 + SumOfSquaredDigits(x).
%C A209303 Note that early terms are not always produced in order. For example, 162 is produced by x=9, but is the 12th term in the sequence. The last out-of-order term is a(30)=926, produced when x=29.
%H A209303 Christian N. K. Anderson, <a href="/A209303/b209303.txt">Table of n, a(n) for n = 1..10000</a>
%H A209303 Christian N. K. Anderson, <a href="/A209303/a209303.gif">Ulam Spiral</a> of terms 1 to 500.
%e A209303 251 is in the sequence, because 15^2 + (1^2 + 5^2) = 251.
%t A209303 Table[n^2+Total[IntegerDigits[n]^2],{n,100}]//Union (* _Harvey P. Dale_, Jan 25 2021 *)
%o A209303 (R) sort((1:10000)^2+vapply(1:10000,sum(as.numeric(unlist(strsplit(as.character(as.bigz(x)),split="")))^2),1))
%Y A209303 Cf. A171613, A062028, A007770.
%K A209303 nonn,base
%O A209303 1,1
%A A209303 _Christian N. K. Anderson_, Apr 22 2013