A164517 Primes of the form 1+A162143(k).
4357, 12101, 16901, 28901, 52901, 164837, 184901, 220901, 224677, 417317, 427717, 682277, 792101, 820837, 894917, 972197, 1020101, 1110917, 1136357, 1144901, 1223237, 1313317, 1552517, 1887877, 1943237, 1976837, 2056357, 2464901
Offset: 1
Keywords
Examples
For p=4357=a(1), p=14356=2^2*3^2*11^2. For p=12101, p=1=12100=2^2*5^2*11^2.
Programs
-
Mathematica
f[n_]:=FactorInteger[n][[1,2]]==2&&Length[FactorInteger[n]]==3&&FactorInteger[n][[2, 2]]==2&&FactorInteger[n][[3,2]]==2; lst={};Do[p=Prime[n];If[f[p-1], AppendTo[lst,p]],{n,2,9!}];lst
Extensions
Edited by R. J. Mathar, Aug 18 2009
Comments