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.
%I A111134 #10 Aug 02 2024 01:55:19 %S A111134 1,2,8,9,128,625,6561,32768,117649,2147483648,25937424601, %T A111134 2541865828329,23298085122481,59604644775390625,9223372036854775808, %U A111134 48661191875666868481,104127350297911241532841,907846434775996175406740561329,147808829414345923316083210206383297601 %N A111134 Numbers of the form p^(p^k-1) (p prime, k>=0). %C A111134 The refactorable prime powers A000961. %H A111134 Amiram Eldar, <a href="/A111134/b111134.txt">Table of n, a(n) for n = 1..102</a> %t A111134 f[p_, max_] := Module[{k = 1, s = {}, r}, While[(r = p^(p^k - 1)) < max, AppendTo[s, r]; k++]; s]; seq[max_] := Module[{s = {1}, p = 2, s1}, While[(s1 = f[p, max]) != {}, s = Join[s, s1]; p = NextPrime[p]]; Union[s]]; seq[10^30] (* _Amiram Eldar_, Aug 01 2024 *) %Y A111134 Intersection of A000961 and A033950. %Y A111134 The sequence forms a subsequence of the refactorable numbers A033950; on the other hand A036878 is a subsequence. %K A111134 nonn %O A111134 1,2 %A A111134 _Franz Vrabec_, Oct 17 2005 %E A111134 More terms from _Robert G. Wilson v_, Oct 21 2005 %E A111134 a(18)-a(19) from _Amiram Eldar_, Aug 01 2024