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 A343192 #14 May 26 2021 03:07:15 %S A343192 263,1039,1933,2221,3067,3137,5741,6343,6353,6971,7481,8821,9103, %T A343192 10247,11251,12347,13037,13339,13457,13933,14437,16451,17317,18041, %U A343192 21617,26309,26339,30091,30293,31177,32009,34471,35227,36307,36433,37117,41131,41333,41801,43781 %N A343192 Happy Honaker primes. %C A343192 Intersection of A033548 and A035497 or A007770. %H A343192 K. D. Bajpai, <a href="/A343192/b343192.txt">Table of n, a(n) for n = 1..10000</a> %e A343192 263 is a Honaker prime: the number of primes up to 263 is 56 and 2 + 6 + 3 = 11 = 5 + 6. 263 is also a Happy number: iterating the sum of squares of digits terminates in 1, i.e., 263 -> 4 + 36 + 9 = 49 -> 16 + 81 = 97 -> 81 + 49 = 130 -> 1 + 9 + 0 = 10 -> 1 + 0 = 1. Thus 263 is a Happy Honaker prime. %t A343192 Select[Prime[Range[20000]], FixedPoint[Total[IntegerDigits[#]^2] &, #, 10] == 1 && Plus @@ IntegerDigits@# == Plus @@ IntegerDigits@PrimePi@# &] %Y A343192 Cf. A007770, A033548, A035497, A046519. %K A343192 nonn,base %O A343192 1,1 %A A343192 _K. D. Bajpai_, Apr 07 2021