A387240 Lesser of twin happy primes.

3329, 6701, 14549, 30137, 31769, 44699, 63197, 67139, 76001, 91367, 94439, 97649, 103967, 104549, 107069, 115019, 117977, 122321, 136709, 140549, 167309, 170369, 176459, 179717, 190367, 193937, 197969, 211049, 226451, 262541, 275489, 278807, 300317, 307169, 330017

Offset

1,1

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A001359, A007770, A035497.

Sequence in context: A253872 A253865 A253538 * A147881 A230307 A043504

Adjacent sequences: A387237 A387238 A387239 * A387241 A387242 A387243

Keyword

nonn,base

Author

Anonymous, Aug 23 2025

Status

approved