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 A154716 #14 Jan 17 2025 07:21:24 %S A154716 1729,5681,13547,56327,237553,789289,1089019,1560553,2530217,4480109, %T A154716 7703209,12131401,18417101,24119467,30355679,38022301,46039783, %U A154716 53272619,57627329,62188859,79075651,112140029,169169677,226833263,271152373,300157327,325898231 %N A154716 Products of three consecutive happy primes A035497. %C A154716 Note that a(1) = 1729 is the Hardy-Ramanujan number (see taxicab numbers in A001235, A011541). %t A154716 happyQ[n_, b_] := NestWhile[Total[IntegerDigits[#, b]^2] &, n, UnsameQ, All] == 1; Times @@@ Partition[Select[Prime[Range[150]], happyQ[#, 10] &], 3, 1] (* _Amiram Eldar_, Jan 17 2025 *) %Y A154716 Cf. A001235, A011541, A035497, A154717, A154728, A154729. %K A154716 easy,nonn,base %O A154716 1,1 %A A154716 _Omar E. Pol_, Jan 18 2009 %E A154716 a(5)-a(27) from _Nathaniel Johnston_, Apr 30 2011