login
A046850
Gilda's primes: primes in A042947.
1
29, 683, 997, 2207, 30571351, 271953103
OFFSET
1,1
COMMENTS
Is this sequence infinite?
PROG
(PARI) for(n=1, 10^8, if(isprime(n), s=eval(Vec(Str(n))); f1=sum(i=1, #s, s[i]); f0=abs(2*s[1]-f1); f=f0+f1; while(f<=n, if(f==n, print1(n, ", "); break); f0=f1; f1=f; f=f0+f1))) \\ Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 30 2008
CROSSREFS
Cf. A042947.
Sequence in context: A063044 A062560 A135995 * A342895 A180844 A159669
KEYWORD
nonn,base,less
AUTHOR
EXTENSIONS
a(5) from Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 30 2008
a(6) from Sean A. Irvine, Apr 28 2021
STATUS
approved