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.

A318606 Numbers of the form p^k-k for some prime, p, and integer k >= 0.

This page as a plain text file.
%I A318606 #28 Sep 14 2019 06:39:15
%S A318606 1,2,4,5,6,7,10,12,16,18,22,23,24,27,28,30,36,40,42,46,47,52,58,60,66,
%T A318606 70,72,77,78,82,88,96,100,102,106,108,112,119,121,122,126,130,136,138,
%U A318606 148,150,156,162,166,167,172,178,180,190,192,196,198,210,222,226,228,232,238,240,248,250,256,262
%N A318606 Numbers of the form p^k-k for some prime, p, and integer k >= 0.
%H A318606 Jud McCranie, <a href="/A318606/b318606.txt">Table of n, a(n) for n = 1..5000</a>
%H A318606 S. P. Hurd and J. S. McCranie, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL22/Hurd/hurd1.html">Integers that are Sums of Uniform Powers of all their Prime Factors: the sequence A068916</a>, J. of Int. Seq., vol 22 (2019), article 19.3.4.
%e A318606 2^7-7=121, so 121 is in the sequence.
%t A318606 With[{nn = 265}, Union@ Flatten@ Table[p^k - k, {p, Prime@ Range@ PrimePi@ nn}, {k, Log[p, nn]}]] (* _Michael De Vlieger_, Jul 16 2019 *)
%Y A318606 Cf. A000040, A057897, A068916, A269769.
%K A318606 nonn
%O A318606 1,2
%A A318606 _Jud McCranie_, Aug 29 2018