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 A081506 #18 Aug 17 2024 09:16:20 %S A081506 3,29,353,4889,72353, %T A081506 105312291668560568089831550410013687058921146068446092937783402353 %N A081506 Primes of the form 2^k + 3^k + 4^k. %C A081506 The next term (a(7)) has 202 digits. - _Harvey P. Dale_, Aug 20 2015 %H A081506 Amiram Eldar, <a href="/A081506/b081506.txt">Table of n, a(n) for n = 1..9</a> %F A081506 a(n) = A074526(A081507(n)). - _Amiram Eldar_, Aug 17 2024 %e A081506 k = 2: 2^2 + 3^2 + 4^2 = 4 + 9 + 16 = 29, which is prime. %t A081506 Do[s=2^w+3^w+4^w; If[IntegerQ[w/100], Print[{w}]]; If[PrimeQ[s], Print[{w, s}]], {w, 0, 1000}] %t A081506 Select[Table[2^n+3^n+4^n,{n,0,200}],PrimeQ] (* _Harvey P. Dale_, Aug 20 2015 *) %o A081506 (PARI) lista(kmax) = {my(p); for(k = 0, kmax, p = 2^k + 3^k + 4^k; if(isprime(p), print1(p, ", ")));} \\ _Amiram Eldar_, Aug 17 2024 %Y A081506 Cf. A074526, A081507. %K A081506 nonn %O A081506 1,1 %A A081506 _Labos Elemer_, Apr 15 2003