A286661 Primes of form A038396(n) - 1 or A038396(n) + 1.
3, 41, 43, 641, 643, 8641, 108643, 18161412108641, 525048464442403836343230282624222018161412108643, 646260585654525048464442403836343230282624222018161412108641
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Consecutive Number Sequences
Programs
-
Mathematica
Select[#, PrimeQ] &@ Flatten@ Table[{# - 1, # + 1} &@ FromDigits@ Flatten@ Reverse@ Take[#, n], {n, Length@ #}] &@ Array[IntegerDigits[2 #] &, 40] (* Michael De Vlieger, May 14 2017 *)
Comments