A387896 Lesser of cousin happy primes.

19, 379, 3079, 3319, 10333, 11467, 13033, 17569, 20899, 27697, 30133, 30319, 36919, 38299, 38329, 39619, 41113, 42859, 43987, 44647, 46447, 57727, 67927, 68899, 70309, 73009, 74047, 79627, 79939, 93487, 94789, 101737, 103699, 104119, 111439, 113779, 117037, 117973, 118369, 124699, 129457

Offset

1,1

Comments

Primes p such that both p and p+4 are happy primes.

Links

Table of n, a(n) for n=1..41.

Mathematica

happyQ[n_] := NestWhile[Total[IntegerDigits[#]^2] &, n, UnsameQ, All] == 1; Select[Prime[Range[13000]], PrimeQ[# + 4] && happyQ[#] && happyQ[# + 4] &] (* Amiram Eldar, Sep 11 2025 *)

Crossrefs

Cf. A007770, A035497, A046132.

Sequence in context: A041686 A263371 A023283 * A075839 A380641 A158592

Adjacent sequences: A387893 A387894 A387895 * A387897 A387898 A387899

Keyword

nonn,base

Author

Anonymous, Sep 11 2025

Status

approved