A134924 Nearest-neighbors of isolated primes.
1, 3, 22, 24, 36, 38, 46, 48, 52, 54, 66, 68, 78, 80, 82, 84, 88, 90, 96, 98, 112, 114, 126, 128, 130, 132, 156, 158, 162, 164, 166, 168, 172, 174, 210, 212, 222, 224, 232, 234, 250, 252, 256, 258, 262, 264, 276, 278, 292, 294, 306, 308
Offset: 1
Links
- Martin Burtscher, Igor Szczyrba, and RafaĆ Szczyrba, Analytic Representations of the n-anacci Constants and Generalizations Thereof, Journal of Integer Sequences, Vol. 18 (2015), Article 15.4.5.
Programs
-
Mathematica
ip=Select[Prime[Range[65]],NoneTrue[{#-2,#+2},PrimeQ]&];Union[Flatten[Table[n+{1, -1}, {n, ip}]]] (* James C. McMahon, Apr 12 2025 *)