A058229 Digits composite, each digit minus 1 is prime, sum of digits minus 1 is prime, difference of digits (in absolute value) minus 1 is prime.

4, 6, 8, 48, 84, 444, 446, 464, 488, 648, 666, 668, 684, 686, 848, 866, 884, 888, 4448, 4466, 4484, 4646, 4664, 4844, 6444, 6446, 6464, 6468, 6486, 6644, 6648, 6666, 6684, 6846, 6864, 6888, 8444, 8448, 8466, 8484, 8646, 8664, 8688, 8844, 8868, 8886, 44444

Offset

1,1

Comments

If the digits of n are d1,d2,...,dn, then "difference of digits" means d1-d2-...-dn. - Sean A. Irvine, Jul 30 2022

Links

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

Mathematica

dc[n_]:=(id=IntegerDigits[n]; And[And@@CompositeQ[id], And@@PrimeQ/@Flatten@{id-1, Total[id]-1, Abs[id[[1]]-Total[Drop[id, 1]]]-1}]); Select[Range[44444], dc] (* Jake L Lande, Jul 31 2024 *)

Crossrefs

Sequence in context: A291718 A137026 A090938 * A087271 A067797 A203633

Adjacent sequences: A058226 A058227 A058228 * A058230 A058231 A058232

Keyword

nonn,less,base

Author

Felice Russo, Dec 01 2000

Extensions

Missing single-digit terms inserted by Sean A. Irvine, Jul 30 2022

Status

approved