OFFSET
1,1
COMMENTS
Although there are more terms than A105403 so far, these numbers are still fairly uncommon.
Is this sequence infinite?
EXAMPLE
The prime factors of prime(30)-1 are 2,2,2,2,7 and the prime factors of prime(31)-1 are 2,3,3,7. The sum of entries in each of these lists is 15.
MATHEMATICA
SequencePosition[Table[Total[Flatten[Table[#[[1]], #[[2]]]&/@ FactorInteger[ p-1]]], {p, Prime[Range[200000]]}], {x_, x_}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 12 2020 *)
PROG
(PARI) spff(n) = {my(f=factor(n)); sum(k=1, #f~, f[k, 1]*f[k, 2]); }
lista(nn) = {forprime(p=2, nn, if (spff(p-1)==spff(nextprime(p+1)-1), print1(primepi(p), ", ")); ); } \\ Michel Marcus, Jun 30 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Alois P. Heinz, Jun 30 2015
Name edited by Zak Seidov, Jul 02 2015
STATUS
approved