A387258 Lesser of sexy happy primes.

7, 13, 97, 103, 1033, 1481, 2333, 3313, 3323, 3637, 3797, 4441, 5471, 6197, 6337, 6361, 6367, 7451, 7541, 8693, 8963, 9001, 9007, 12143, 13003, 14081, 14321, 17027, 18041, 21143, 21341, 23887, 23893, 24107, 26171, 26627, 26711, 27611, 27817, 28387, 29297, 29383

Offset

1,1

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A023201, A007770, A035497.

Sequence in context: A177952 A320461 A132373 * A110293 A253333 A039687

Adjacent sequences: A387255 A387256 A387257 * A387259 A387260 A387261

Keyword

nonn,base

Author

Anonymous, Aug 24 2025

Status

approved